Salut Emilie-Laure, Monique et Eric,
Histoire de compléter le sujet, voici une macro qui peut traiter la question en récupérant aussi le format des cellules communes :
Dim Temp As String
Dim I As Integer, J As Integer
For I = 1 To 20
Temp = Temp & Cells(I, 2).Text & µ
Next
J = 1
For I = 1 To 20
If InStr(Temp, Cells(I, 1).Text) > 0 Then
Cells(J, 3) = Cells(I, 1).Text
Cells(J, 3).Font.Color = Cells(I, 1).Font.Color
Cells(J, 3).Font.Bold = Cells(I, 1).Font.Bold
J = J + 1
End If
Next
A+
Horatio