Harmonisation tableau

Sub Harmonisation()
    
    'Enlève la fusion sur l'ensembles des cellules de la table
    Sheets("TABLE").Cells.UnMerge
    
    

    'Décale des blocs de 4 colonnes vers le haut si la première de ces 4 colonnes est vide
    lCol = Sheets("TABLE").Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 1 To lCol Step 5
    If Sheets("TABLE").Cells(2, i).Value = "" Then
    
    lLig = Sheets("TABLE").Cells(Rows.Count, i).End(xlUp).Row
    Range(Sheets("TABLE").Cells(3, i), Sheets("TABLE").Cells(lLig, i + 3)).Copy
    Sheets("TABLE").Cells(2, i).PasteSpecial xlPasteValues
    
    'Supprime le contenu de la dernière ligne
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).ClearContents
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).Borders(xlEdgeLeft).LineStyle = xlNone
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).Borders(xlEdgeBottom).LineStyle = xlNone
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).Borders(xlEdgeRight).LineStyle = xlNone
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).Borders(xlInsideVertical).LineStyle = xlNone
    Range(Sheets("TABLE").Cells(lLig, i), Sheets("TABLE").Cells(lLig, i + 3)).Borders(xlInsideHorizontal).LineStyle = xlNone
    


    End If
    Next i
    
   Rows("2:2").Select
    Selection.Font.Bold = False
    With Selection.Font
        .Name = "Arial"
        .Size = 10
    End With
    
End Sub