Mytå a écrit : Salut le forum

Warmaster, ajoute cette macro au fichier.

Sub Reperes()
Dim Cel As Range
Dim Cell As Range

With Sheets("Courses")
  For Each Cell In .Range("C10:C" & .Cells(Rows.Count, "C").End(xlUp).Row)
    If Not IsEmpty(Cell) Then
      With Sheets("Reperes")
        With .Cells
          Set Cel = .Find(Cell.Value, LookIn:=xlValues)
          If Not Cel Is Nothing Then
            With Cell
              .Font.Bold = True
              .Font.ColorIndex = 3
            End With
          End If
        End With
      End With
    End If
  Next Cell
End With

End Sub

  Et dans le code de la feuille F01(Courses), ajoute la ligne Call Reperes

    Call CopierCourse
    Call Reperes
    End If

Modifie aussi cette partie dans le code des macros

• Private Sub ComboBox1_Click()
• Private Sub ComboBox2_Click()
• Private Sub CommandButton1_Click()

Range("B10:R12,B14:U33").ClearContents

Par

With Range("B10:R12,B14:U33")
    .ClearContents
  .Font.Bold = False
  .Font.ColorIndex = 0
End With

Mytå