bonjour j'ai un souci

je vous expose le problème

j'ai un tableau contenant deux colonnes sur la feuille 1:
-indice routier sous format texte
-le nom de l'entreprise à coté

et un deuxième tableau contenant 3 colonnes contenant:
-les indices routiers accompagnés d'info supplémentaires sous format txt
(nb ce sont des des libellés)

donc alors dans ce deuxième tableau je voudrais dans la ligne en dessous du libellé extraire pour chaque cellules tout les nom des entreprise qui sont relative à indice routier du deuxième tableau (j'avoue que c'est compliqué^^)

alors comme je ne manipule pas excel j'ai crée le code suivant sur un exemple simple mais ca ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CommandButton1_Click()
 
 
 
Dim derligne As Long
derligne = Sheets("feuil2").Range("a65536").End(xlUp).Row
 
For i = 1 To derligne
For j = 1 To 3
If Sheets("feuil2").Cells(i, 1) = Left(Cells(1, j), 3) Then
Cells(2, j) = sheets("feuil2").cells(i,2)
End If
Next j
Next i
End Sub
enfin je n'ai pas d'erreur mais la procedure ne donne aucun résultat

est qu'il existe simplement une formule excel
merci d'avance