Sub test()
Dim Data As Range, Lig%, Col%
Set Data = Range("a6:m213")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Data
For Lig = .Rows.Count To 1 Step -1
For Col = .Columns.Count To 1 Step -1
If .Cells(Lig, Col) = "" Then .Cells(Lig, Col).Delete shift:=xlToLeft
Next Col
Next Lig
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub