Comparaison-copier-coller des cellules vba

Bonjour tout le monde ;
je reviens vers vous une autre fois pour m'aider à resoudre mon problème, ça fait plus que deux jours que je suis dessus sans faire grand chose (je debute en vba )

En fait , jai un classeur à deux feuils(feuil1 et feuil2). la colA de la feuil 2 contient les codes article(il peut y avoire des cellules vide) .la col G de la feuil1 contient les articles aussi(il peut y avoire des cellules vide) , la col M jusqu'à col X de la feuil1 contient les quantités de chaque articles.

je veux créer un code vba qui prends un article de la col A "feuil2" ,le cherche dans la colonne "G" de la feuil1 ,une fois trouvé il copier les quantités correspondantes de cet article (les cellules des col M-->X de la feuil1 ) vers les cellules C1-->C13 de la
feuil1 .
pour le passage à un autre article j'aimerai bien qu'il saute 3 lignes c'est à dire pour le deuxieme article , les quantités seront coller dans les cellules C4-->C16 de la feuil2 , ainsi de suite .......

voici ce que j'ai mets comme code vba ,ça me parait logique mais je ne sais pas pourqoui ça ne marche pas. en fait il copier les qté juste de 7 premiers article !!!!!!!


Sub comparaison()
Dim i, j As Long
Dim var1, var2 As String


compt = 1
Ligf1 = Sheets("Feuil2").Cells(65535, 1).End(xlUp).Row
Ligf2 = Sheets("Feuil1").Cells(65535, 7).End(xlUp).Row

For i = 1 To Ligf1
Sheets("Feuil2").Select
var1 = Sheets("Feuil2").Cells(i, 1).Value
If var1 = "" Then GoTo label

For j = 1 To Ligf2

Sheets("Feuil1").Select
var2 = Sheets("Feuil1").Cells(j, 7).Value

If var1 = var2 Then
Sheets("Feuil2").Cells(compt, 3).Value = Sheets("Feuil1").Cells(j, 13).Value
Sheets("Feuil2").Cells(compt, 4).Value = Sheets("Feuil1").Cells(j, 14).Value
Sheets("Feuil2").Cells(compt, 5).Value = Sheets("Feuil1").Cells(j, 15).Value
Sheets("Feuil2").Cells(compt, 6).Value = Sheets("Feuil1").Cells(j, 16).Value
Sheets("Feuil2").Cells(compt, 7).Value = Sheets("Feuil1").Cells(j, 17).Value
Sheets("Feuil2").Cells(compt, 8).Value = Sheets("Feuil1").Cells(j, 18).Value
Sheets("Feuil2").Cells(compt, 9).Value = Sheets("Feuil1").Cells(j, 19).Value
Sheets("Feuil2").Cells(compt, 10).Value = Sheets("Feuil1").Cells(j, 20).Value
Sheets("Feuil2").Cells(compt, 11).Value = Sheets("Feuil1").Cells(j, 21).Value
Sheets("Feuil2").Cells(compt, 12).Value = Sheets("Feuil1").Cells(j, 22).Value
Sheets("Feuil2").Cells(compt, 13).Value = Sheets("Feuil1").Cells(j, 23).Value
Sheets("Feuil2").Cells(compt, 16).Value = Sheets("Feuil1").Cells(j, 24).Value
Sheets("Feuil2").Cells(compt, 17).Value = Sheets("Feuil1").Cells(j, 25).Value


compt = compt + 6
Exit For
End If
Next j
label:
Next i



End Sub


Merci d'avance