Je définis ma zone de cellules fusionnées comme cela :
Zone = Range('A1').mergearea.address
Par exemple çà donne A1:A3
J'aimerai définir une seconde zone à partir de la première de sorte que la zone devienne : B1:B3
Sachant que la seconde zone ne concerne pas des cellules fusionnées.
Zone2 = ....
Voici un petit bout de code qui j'espère répond à tes attentes, j'ai repris A1:A3 comme plage de cellule fusionnée et je l'agrandi d'une colonne grâce à la propriété Resize ce qui correspond donc à A1:B3 et cette zone agrandi devient 'Plage' et je met le contour de 'Plage' en rouge.
Code:
Option Explicit
Sub DefinirZone()
Dim Zone1 As Range, Plage As Range
Set Zone1 = Range('A1').MergeArea
Set Plage = Zone1.Resize(Zone1.Rows.Count, Zone1.Columns.Count + 1)
Plage.BorderAround ColorIndex:=3
End Sub