Navigation dans cellules fusionnées via range.offset

Bonjour,

Je dois remplir un entête avec 8 cellules fusionnées espacées d'une cellule.
j'ai fais ça comme ça :

Code:

---

1 2 3 4 5 6 7

For month = 0 To 11 'on récupère les données pour tous les mois   'Remplissage de l'entête des mois Range("B1").Offset(0, 2 * month).Select Range("B1").Offset(0, 2 * month) = mois(month) Range(Range("B1").Offset(0, 2 * month), Range("B1").Offset(0, 2 * month + 7)).Merge Next

---

Ça fonctionne bien pour le premier mois, le deuxième mais pas le troisième.
Je ne comprend pas très bien comment fonctionne l'offset avec les cellules fusionnées.

Avez vous une idée??

Cordialement,

Pierre

Code:

---

1 2 3 4 5 6 7 8

Dim i As Byte   With Sheets("Feuil1") 'à adapter For i = 0 To 11 .Cells(1, 9 * i + 2) = MonthName(i + 1) .Range(.Cells(1, 9 * i + 2), .Cells(1, 9 * (i + 1))).Merge Next i End With

---

Ah super! merci bien mercatog.