Fussionner deux cellulles si identique

Sub Fusion()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For c = 2 To 24 Step 2
        For l = 35 To 5 Step -1
            If Cells(l, c) <> "" And Cells(l - 1, c) <> "" Then
                If Cells(l, c) = Cells(l - 1, c) Then
                    With Range(Cells(l, c), Cells(l - 1, c))
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                        .MergeCells = True
                    End With
                End If
            End If
        Next l
    Next c
End Sub

Sub Fusion() à
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For c = 1 To 24
        For l = 36 To 2 Step -1
            If Cells(l, c) <> "" And Cells(l - 1, c) <> "" Then
                If Cells(l, c) = Cells(l - 1, c) Then Range(Cells(l, c), Cells(l - 1, c)).Merge
            End If
        Next l
    Next c
End Sub