Bonjour a tous,
et bonjour Myta,

Voila Est ce qu'il serait possible de modifier ce code:

Est ce quSub 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