Formule/commande fusionner celule si

Bonjour,

Je souhaiterais fusionner les cellules de la colonne G, M, et AC si les données dans la colonne G sont identiques dans deux cases d'affilées.

Merci d'avance et bone journée

Bonjour,

Sub FusionnerG()
    Dim n%, i%, j%, k%, cf
    cf = Array(7, 13, 29)
    Application.DisplayAlerts = False
    With Worksheets("Feuil1")
        n = .Range("G" & .Rows.Count).End(xlUp).Row
        For i = 2 To n - 1
            If .Cells(i + 1, 7) = .Cells(i, 7) Then
                j = i + 1
                Do
                    If .Cells(j + 1, 7) = .Cells(j, 7) Then
                        j = j + 1
                    Else
                        Exit Do
                    End If
                Loop While j < n
                For k = 0 To 2
                    .Range(.Cells(i, cf(k)), .Cells(j, cf(k))).Merge
                Next k
                i = j
            End If
        Next i
    End With
    Application.DisplayAlerts = True
End Sub

Cordialement.

Merci!

Je suis désolé je n'arrive pas à la faire fonctionner

Re,