fusionner plusieurs cellules avec une macro

bonjour
j'ai une ligne qui contient des noms de mois . Je voudrai savoir s'il existe un moyen en VBA de fusionner les cellules qui contiennent le même mois.Cette ligne doit servir pour construire un graphique glissant sur 2 années.Mon graphique comporte des données par semaine avec le numéro de semaine sur l'axe des X . Je voudrai avoir le mois correspondant sous les semaine.
Actuellement , je fusionne les cellules manuellement à chaque rajout de semaines et je ne connais rien à la VBA pouvez vous m'aider.
d'avance merci

Bonjour,

Comment gères tu les semaines a cheval sur 2 mois? voir 2 années?

bonjour
je n'ai pas trouve le moyen de le faire pour l'instant. je dois appliquer la methode 4,4,5 pour le nombre de semaine dans les mois
janvier 4 , février 4, mars 5 etc... pour construire mon graphique

un coup de pouce,

Code a mettre au niveau de la feuil2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub fusion()   Dim c As Integer Dim rg As Range   Application.DisplayAlerts = False   For c = 1 To Rows(13).End(xlToRight).Column If c = 1 Then Set rg = Cells(13, c)   If rg.Value <> Cells(13, c).Value Then Range(rg, Cells(13, c - 1)).Merge Set rg = Cells(13, c) End If   Next c   Range(rg, Cells(13, c - 1)).Merge   Application.DisplayAlerts = True   End Sub

---