Voilà ! j'avais vu mon erreur effectivement le fichier n'était pas trié !!
Donc voilà ce que je te propose comme 't'chiote' macro :
Sub alignement()
Cells(1, 1).Select
derniereligne = Cells(1, 1).End(xlDown).Row
For i = 1 To derniereligne
Cells(1, 10) = '=iserror(match(''' & Cells(i, 1) & ''',E:E,0))'
If Cells(1, 10) = False Then
Cells(1, 10) = '=match(''' & Cells(i, 1) & ''',E:E,0)'
For k = 0 To 2
Cells(i, 6 + k) = Cells(Cells(1, 10), k + 3)
Next k
End If
Next i
Cells(1, 10).Clear
Columns('C:E').Delete
End Sub
(tu corrigeras l'indentation qui n'est pas reprise dans le post !)
La seule condition pour qu'elle fonctionne : qu'il n'y ait pas de doublon d'adresse dans la colonne 5 (la fonction EQUIV ne permettant pas de faire de dichotomie) !!
Ma liste a été triée en........pffft
Amuses toi bien
Alain