Bonsoir à tous
J'ai mis dans une macro ce code
Sub Compteur1_QuandChangement()
'Lance la Macro init du calendrier
Call InitialisationDesCouleursDuCalendrier
' LANCE LA MISE A JOUR DE LA FEUILLE SYNTHESE
'On efface les colonnes avant copie colle des mois
Sheets(1).Range("B22:B52,U22:U52,B54:B84,U54:U84,B86:B116,U86:U116").Clear
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir (Janvier)
Sheets(2).Range("B9:B39").Copy Sheets(1).[B22]
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir(Fevrier)
Sheets(2).Range("E9:E39").Copy Sheets(1).[U22]
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir (Mars)
Sheets(2).Range("H9:H39").Copy Sheets(1).[B54]
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir(Avril)
Sheets(2).Range("K9:K39").Copy Sheets(1).[U54]
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir(Mai)
Sheets(2).Range("N9:N39").Copy Sheets(1).[B86]
'feuille 2 . selection .Copie Vers feuille 2 Début cellule pour avoir(Juin)
Sheets(2).Range("Q9:Q39").Copy Sheets(1).[U86]
End Sub
Le code fonctionne correctement
J'aimerai savoir, si une écriture plus rationnelle est possible
et si ma présentation de cette demande est claire svp
Merci pour votre aide
Cdt
Ledzep