Insérer des cellules copiées en déplacement vers le bas

Salut à tous, Nyco

essaye ce code :

Sub InserAuDessus()
'

Range("A10:A13").Select ' ici tu sélectionnes ce que tu doit copier
Selection.Copy ' lance la procédure de copie
Sheets("Feuil2").Select ' sélectionne la feuille destination
Range("A10").Select ' sélectionne la cellule destination
Selection.Insert Shift:=xlDown ' insertion des cellules à l'emplacement désigné avec décallage des cellules vers le bas

End Sub

a+
Duriz

Merci beaucoup
Tres bonne journée