Bonjour,
J'ai un code qui fonctionnait bien (voir ci dessous)
Sub copiemois()
' lib = tableau avec les libellés des mois
Dim lib
lib = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
' on parcourt toutes...