Dim C As Object
Dim FirstAddress As String
With ActiveSheet.Range('D2:D120')
Set C = .Find(What:=tableau_nom(i), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart _
, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, searchformat:=False)
If Not C Is Nothing Then
FirstAddress = C.Address
Do
MsgBox C.Address 'exemple d'action si une valeur est trouvée
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstAddress
End If
End With