Dim Resultat As Range
Dim RechercheMot As String
RechercheMot = InputBox("Nom ? Prénom ? Date ?")
Set Resultat = Worksheets("2013").Range("A1:F5000").Cells.Find(RechercheMot, , xlValues, xlWhole)
If Resultat Is Nothing Then
MsgBox "Aucunes correspondances trouvées..."
Else
For Each vCellule In Selection
If vCellule.Value = RechercherMot Then
Rows(vCellule.Row).Copy Sheets("Find").[a1].End(xlUp)
End If
Next
End If
End Sub