Bonjour Idma, bonjour le forum,
Peut-être comme ça :
Sub Macro1()
Dim PL As Range 'déclare la variable PL (PLage)
Dim M As Variant 'déclare le tableau de variables M
Dim I As Byte 'déclare la variable I (incrément)
M = Array("FÉVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOÛT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DÉCEMBRE") 'définit le tableau de variables M
Set PL = Worksheets("JANVIER").Range("P3").CurrentRegion 'définit la plage PL
For I = 0 To UBound(M) 'boucle sur tous les mois du tableau des variables M
PL.Copy Worksheets(M(I)).Range("A1") 'copie la plage PL et la colle dans A1 du mois M
Next I 'prochain mois de la boucle
End Sub
[Édition]
Bonjour Gmb nos posts se sont croisés...