MACRO copie plusieurs cellules ds une nouvelle ligne

Bonjour,

Ca fait plusieurs jours que je n'arrive pas à déboguer une macro.
Je souhaiterai :
En partant de la saisie d'une fiche, je puisse insérer une nouvelle ligne avec récupération des données de cette fiche dans un tableau sur une autre feuille.

Voici le code que j'ai fait :

Sub inserCOPIE()
'
' inserCOPIE Macro
'

'
Range("A5").Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5").Select
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("B65").Select
Selection.Copy
Sheets("LISTING").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H65").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("C5").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("E5").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("G5").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H46").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("H5").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H69:H70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("I5").Select
ActiveSheet.Paste Link:=True
Sheets("FICHE DE RETOUR MATERIEL").Select
Range("H49").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTING").Select
Range("J5").Select
ActiveSheet.Paste Link:=True
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub



MERCI pour votre aide précieuse !!!
il y a sûrement un truc que j'ai oublié.


Cordialement.