Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Quoi, C As Range, T As String 'obligatoire avec Option Explicit
Quoi = InputBox("Donnée à rechercher", "Recherche de ...")
T = "Pas"
If Quoi = Format(Quoi, "0#"" ""##"" ""##"" ""##"" ""##") Then Exit Sub
For Each Sh In Worksheets
Set C = Sh.Cells.Find(Quoi, LookAt:=1, MatchCase:=1) 'voir aide pour la casse
If Not C Is Nothing Then
Sh.Activate: C.Select
If MsgBox("trouvé en " & Sh.Name & "." & vbLf & _
"Recherche du suivant ?", 4, "Recherche de " & Quoi) = 7 Then
MsgBox "Recherche arrêtée !", , "Oups": Exit Sub
End If
T = "Plus "
End If
Next
If T = "Pas" Then
MsgBox "Recherche infructueuse !", , "Oups"
Else
MsgBox "Recherche terminéee !", , "Eh oui..."
End If
End Sub