Je te propose un bout de VBA pour y remédier
Sub test()
'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
''''
End Sub