Cellule fusionnée non reconnue

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal target As Range)

'Macro événementielle pour le contrôle des saisies

Dim longpre As Byte, longsuf As Byte, prefixe As String, suffixe As Byte

'Déclaration de la longueur du préfixe & du suffixe
longpre = 4: longsuf = 1

If Not Application.Intersect(target, Range("Dil1NbUXFl1, Dil1VolS1, Dil1NbGrS1, Dil1NbUXParGr1")) Is Nothing Then
    Application.EnableEvents = False
    
    'Déclaration du préfixe de toutes les cellules concernées
    prefixe = Left(target[COLOR="Red"].Cells(1, 1)[/COLOR].Name.Name, longpre)
    'Déclaration du suffixe de toutes les cellules concernées
    suffixe = Right(target[COLOR="Red"].Cells(1, 1)[/COLOR].Name.Name, longsuf)
    
    'Renvoie "prefixe" & "suffixe"
    Call ControleCellules(prefixe, suffixe)

    target.Select
End If


Application.EnableEvents = True
End Sub[/B][/COLOR]