XL 2016 Fusionner et centrer des cellules

Sub Test_fusion()


     Nettoyer Range("I:J"), 1 ' Partie 1
     Nettoyer Range("K:L"), 1 ' Partie 2
     Fusionne Range("I7:L200"), 2, 1
    
End Sub
Sub Nettoyer(Plage As Range, Colonne_Ref As Integer)
Dim UsedRow As Integer
Dim R As Range


    With Plage
        UsedRow = ActiveSheet.UsedRange.Rows.Count
        Set R = .Columns(Colonne_Ref).Find("*", .Rows(UsedRow).Cells(1), , , , xlPrevious)
        Select Case True
        Case R Is Nothing:  ' rien
        Case R.Row + 1 = UsedRow: 'rien
        Case Else
            Lastcol = Plage.Column + .Columns.Count - 1
            Range(R.Offset(1), Cells(UsedRow, Lastcol)).Delete xlShiftUp
        End Select
    End With


End Sub
Sub Fusionne(Plage As Range, ParamArray Col() As Variant)
Dim Row As Integer, i As Integer
Dim Dc As String, Df As String


Application.DisplayAlerts = False


    With Plage
        Lastrow = .Rows.Count + Plage.Row
        Lastcol = .Columns.Count
        For i = 0 To UBound(Col)
            Dc = vbNullString
            For Row = 7 To Lastrow
                Debug.Print .Cells(Row, Col(i))
                If .Cells(Row, Col(i)) <> .Cells(Row - 1, Col(i)) Then
                    If Dc <> vbNullString And Not .Cells(Row, Col(i)).MergeCells Then
                        With Range(Dc, Df)
                            .Merge
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlCenter
                        End With
                    End If
                    Dc = .Cells(Row, Col(i)).Address
                End If
                Df = .Cells(Row, Col(i)).Address
             Next
         Next
         .Cells(1, 1).Activate
    End With


End Sub
Sub show_Color()
    Debug.Print ActiveCell.Interior.Color
End Sub