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

[nyco]

Bonjour à tous !!
Je souhaite copier des informations contenues sur une feuille vers
une autre feuille mais en insérant les cellules afin de décaler vers le bas
Si vous pouviez m'aider merci ..

 

[Duriz]

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

 

[nyco]

Merci beaucoup
Tres bonne journée