Sub Essai()
FeuilSource$ = "Feuil1": NoDeLigSource = 3
FeuilDestin$ = "Feuil2": NoDeLigDestin = 8
InsertCopyLigne NoDeLigSource, FeuilSource$, NoDeLigDestin, FeuilDestin$
End Sub
Sub InsertCopyLigne(NoDeLigSource, FeuilSource$, NoDeLigDestin, FeuilDestin$)
Sheets(FeuilDestin$).Rows(NoDeLigDestin).Insert Shift:=xlDown 'insert une ligne
Sheets(FeuilSource$).Rows(NoDeLigSource).Copy Destination:=Sheets(FeuilDestin$).Cells(NoDeLigDestin, 1) 'copie la ligne
Application.CutCopyMode = False
End Sub