[VBA] Insérer des lignes issues d'un 1er tabl

Bonjour,

Je suis débutant en VBA, et je me frotte à quelques difficultés. J'ai besoin de faire une macro, permettant d'insérer des lignes tirées d'un premier tableau à des endroits précis d'un deuxième tableau.

Plus précisément, j'ai dans mon premier tableau des numéros de projet, et caractéristiques de ces projets.

J'aimerais pouvoir insérer ces lignes dans un deuxième tableau, dont les colonnes sont les mêmes, au niveau du numéro de projet correspondant.

Mais ça ne marche pas vraiment. Ca me place toutes les lignes copiées au début de la deuxième feuille excel. Pourriez-vous m'aider??

Voici le code que j'ai fait pour le moment: Indulgence svp !

Sub test()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Feuil2").Activate ' feuille de destination

Col = "A" ' colonne de la donnée non vide à tester
NumLig = 0
With Sheets("Feuil1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig
.Cells(Lig, Col).EntireRow.Copy

With Sheets("Feuil2").Range("a1:a500")
Set c = .Find(.Cells(Lig, Col).Value(), LookIn:=xlValues)
NumLig = c.Row
End With



'Cells(NumLig, 1).Select'


Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlUp

Next
End With

End Sub

merci d'avance pour votre aide