Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Quoi As Variant, C As Range, T As String 'obligatoire avec Option Explicit
Quoi = InputBox("saisie no tel:", "", Sheets("Telephone").Range("E9"))
T = "Pas"
If Quoi = "" Then Exit Sub
'Quoi = Format(Quoi, "0#"" ""##"" ""##"" ""##"" ""##")'< ceci uniquement si tu veux rechercher avec no formaté
For Each Sh In Worksheets
'If Sh.Name <> "Telephone" Then 'recherche excepté dans cette feuille
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
'End If
Next
If T = "Pas" Then
MsgBox "Recherche infructueuse !", , "Oups"
Else
MsgBox "Recherche terminéee !", , "Eh oui..."
End If
End Sub