Option Explicit
Private Sub CommandButton1_Click()
Dim C As Range, R As Range, T As String
For Each C In Rows(50).SpecialCells(2)
If C = "sylvain" And C(1, 2) = "sylvette" And C(1, 3) = "sanglier" Then
For Each R In Feuil2.Cells.SpecialCells(2)
If R = "sylvain" And R(1, 2) = "sylvette" And R(1, 3) = "sanglier" Then
T = T & R.Address & vbLf
End If
Next
End If
Next
If T = "" Then
MsgBox "pas de trace", 64, "Oups"
Else
MsgBox Left(T, Len(T) - 1), 64, "Voir en feuil2..."
End If
End Sub