Bonjour,

Mon but est de faire un copier coller sur une sélection multiple.
Je sais le faire d'une feuille à l'autre mais pas d'une ligne à l'autre.

Merci pour votre aide

Voici ma macro qui ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro1()
Application.EnableEvents = False
 Range("B425:E425,J425:K425,N425,P425:W425").Select
 For Each cel In Selection
 cel.Copy
 Range(Cells(cel.Address.Row + 1, cel.Address.Column)).Select
 ActiveSheet.Paste
 Next cel
Application.EnableEvents = True
End Sub
Voici la macro qui fonctionne d'une feuille à l'autre mais sur la même ligne et pas celle d'en dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro1()
Application.EnableEvents = False
 Range("B425:E425,J425:K425,N425,P425:W425").Select
 For Each cel In Selection
 cel.Copy
 Sheets("Feuil1").Select
 Range(cel.Address).Select
 ActiveSheet.Paste
 Next cel
Application.EnableEvents = True
End Sub