Sub selection()
Dim sel As Range, achercher As String
achercher = InputBox("quel mot recherché ?")
If achercher = "" Then Exit Sub
Set c = ActiveSheet.Range("C" & Range("B1") & ":C" & Range("B2")).Find(achercher, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If Not sel Is Nothing Then
Set sel = Application.Union(sel, Rows(c.Row))
Else
Set sel = Rows(c.Row)
End If
Set c = Range("C" & Range("B1") & ":C" & Range("B2")).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
sel.Select
End Sub