Salut Rudymagny,
Comme je ne comprends pas tout le code et que je peux pas tester, je te propose une solution que je te laisse tester.
Moi je verrais bien un truc du genre :
Code:
Sub Attribuer_formule_colonnes()
'je supose que le mois est dans la cellule A1 pour l'exemple
mois = Cells(1, 1).Value
Sheets(mois).Activate
Columns('C:C').Select
ActiveWorkbook.Names.Add Name:='ColGet' & mois, RefersToR1C1:='=OFFSET(' & mois & '!R4C3,,,COUNTA(' & mois & '!C3)-1)'
Columns('E:E').Select
ActiveWorkbook.Names.Add Name:='ColGdP' & mois, RefersToR1C1:='=OFFSET(' & mois & '!R4C5,,,COUNTA(' & mois & '!C5)-1)'
'...
'le reste de ton code pour seulement un mois puisqu'on a changer le Janvier dans le code par la variable mois
Range('A1').Select
End Sub
Ainsi avec ce bout de code, au lieu d'avoir le code pour 12 mois, tu l'as seulement pour 1 mois.
Tiens moi au courant,
@+