Bonjour à tous,
Je débute en vba et je bataille...merci pour votre aide,

Dans mon range A variable (liste d'appels), je prends cellule par cellule pour trouver une égalité dans un autre range B (contacts tel) et si une égalité est trouvée, renseigner la liste d'appel par le nom du contact.
Mon code me renvoie quelques valeurs, et décalées...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
derlign = ActiveSheet.Range("a65000").End(xlUp).Row
derlign2 = ActiveSheet.Range("i65000").End(xlUp).Row
 
Set s = Range("B10,B" & derlign)
Set R = Range("J10,M" & derlign2)
For m = 1 To derlign2
    For n = 1 To derlign
     If R.Cells(m, 1) <> "" And s.Cells(n, 1) <> "" Then
        If R.Cells(m, 1) = s.Cells(n, 1) Then Cells(n, 5) = Cells(m, 9)
        End If
    Next n
Next m