Bonjour Lani,
Je te file le code que j'ai pu adapter grâce au forum, il fonctionne trop bien
Sub supp_cellule_vide()
Dim col As Integer, lng As Integer
For lng = 1 To 3
For col = 1 To 60
If Cells(2, col).Value = "" Then
Cells(2, col).Delete Shift:=xlToLeft
End If
Next col
Next lng
End Sub