Sub test2()
Dim vArr(), c As Range, firstAddress$, i%
vArr = Array(1, 3, 6, 12)
With ActiveSheet.Range("A1:A100") ' à adapter selon besoin
For i = LBound(vArr) To UBound(vArr)
Set c = .Find(What:=vArr(i), LookAt:=xlWhole, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox c.Address(0, 0) & "=>" & vArr(i)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Next i
End With
End Sub