Bonjour,

J'aimerai simplifier le code suivant en arrivant à faire un Range et un copier/coller
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
nmrdeb = Cells(4, 2).Value
nmrfin = Cells(5, 2).Value   
 
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 9), Worksheets(nomfeuil).Cells(nmrfin, 12)).Copy
Cells(15, 7).Select
ActiveSheet.Paste
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 16), Worksheets(nomfeuil).Cells(nmrfin, 16)).Copy
Cells(15, 11).Select
ActiveSheet.Paste
Worksheets(nomfeuil).Range(Worksheets(nomfeuil).Cells(nmrdeb, 20), Worksheets(nomfeuil).Cells(nmrfin, 20)).Copy
Cells(15, 12).Select
ActiveSheet.Paste
Il me faudrait un code qui ressemble à ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Worksheets(nomfeuil).Range(Range(Worksheets(nomfeuil).Cells(nmrdeb, 9), Worksheets(nomfeuil).Cells(nmrfin, 12)), Range(Worksheets(nomfeuil).Cells(nmrdeb, 16), Worksheets(nomfeuil).Cells(nmrfin, 16)), Range(Worksheets(nomfeuil).Cells(nmrdeb, 20), Worksheets(nomfeuil).Cells(nmrfin, 20))).Copy
 Cells(15, 7).Select
ActiveSheet.Paste
Merci pour votre aide