Sub supprim_colonne()
Range('a2').Select
For i = 1 To 5
col = ActiveCell.Column
lig = ActiveCell.Row
Cells(2, col).Select
Selection.End(xlDown).Select
If Selection.Row = 65536 Then ' si la colonne est totalement vide
ActiveCell.EntireColumn.Delete 'elle s'efface
Cells(lig, col).Select
Else
y = ActiveCell.Row
Selection.Offset(-y + 2, 1).Select
End If
Next i
End Sub