Compter cellule fusionnées comme une cellule et non plusieurs

Bonjour,

voici le code pour détecter les cellules fusionnées. A adapter à ton environnement

Sub detecteFusion()
Dim cellule As Range
Dim derligne As Long
 derligne = Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Range("A1:A" & derligne) 'adapter plage cellule
If Range(cellule.Address).MergeCells Then
'ton code
End If
Next cellule
End Sub

Merci pour ta réponse, j'ai essayé de comprendre mais honnêtement je ne pige rien, quand je rentre le code dans insertion module et que je test rien ne se passe

Sub detecteFusion()
Dim cellule As Range
Dim derligne As Long
derligne = Range("C" & Rows.Count).End(xlUp).Row
For Each cellule In Range("C3:C" & derligne)
If Range(cellule.Address).MergeCells Then
Col = C
Color = "NO_COULEUR(A3;A6)" 
End If
Next cellule
End Sub

et ça me met une erreur

en plus une fois que je rentre le code je clique sur executer mais je sais même pas si c'est ça qu'il faut faire

Bref du coup ce que j'ai fais c'est que j'ai modifié légèrement les couleurs des cellule ou il y'a du vide pour que ça soit invisible à l'oeil nu et que le code couleur soit différent et ça marche, pas automatique mais bien moins compliqué que tout ce schmilblick ! Je me suis aventuré sur un terrain un peu trop épineux pour moi, merci pour ta contribution ^^