Sub RECHERCHE_VALEUR()
Dim rng As Range, c As Range, rep$, adresse$, x%
rep = InputBox("Entrez le n° de recherché")
If rep = "" Then Exit Sub
With Sheets("feuil1")
x = Application.CountIf(.Columns(6), rep)
If x = 0 Then
MsgBox "rien"
Exit Sub
Else
MsgBox "il y a " & x & " cellule(s) contenant " & rep
x = 0
End If
Set c = .Columns(6).Find(rep)
If Not c Is Nothing Then
adresse = c.Address
Do
x = x + 1
Application.Goto .Range(c.Address)
MsgBox "cellule" & x
Set c = .Columns(6).FindNext(c)
Loop While Not c Is Nothing And c.Address <> adresse
End If
End With
End Sub