Sub recherche()
Dim valeur, vt, rep
valeur = InputBox("Que recherchez vous?")
Set vt = ActiveSheet.Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, Lookat:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not vt Is Nothing Then
vt.Select
Response1 = MsgBox("Voulez-vous continuer", vbInformation + vbYesNo)
If Response1 = vbNo Then
Exit Sub
Else
Do While Response1 = vbYes
Cells.FindNext(After:=ActiveCell).Activate
Response1 = MsgBox("Voulez-vous continuer", vbInformation + vbYesNo)
Loop
End If
Else
If ActiveCell <> valeur Then MsgBox ("Le nom cherché n'a pas été trouvé ")
End If
End Sub