Set c = Range("f3")
If c.MergeCells Then MsgBox c.MergeArea.Address
With Range("A6").MergeArea
MsgBox .Row & vbCrLf & .Row + .Rows.Count
End With
Sub largeur_fusion()
Dim colonne As Integer
With Range("C2").MergeArea
colonne = .Item(Range("c2").MergeArea.Count).Column
MsgBox "la cellule s'étend sur " & colonne - Range("c2").Column + 1 & " colonnes."
End With
End Sub
Sub test()
Dim i%, ligneDebut%, LigneFin%
For i = 3 To 58
If Cells(i, 3).MergeCells Then
LigneFin = Cells(i, 3).Cells(Cells(i, 3).MergeArea.Rows.Count, 1).Row
ligneDebut = Cells(i, 3).Cells(1, 1).Row
End If
If ligneDebut <> LigneFin Then MsgBox Cells(ligneDebut, 3).Address: Exit For
Next i
End Sub