Sub sup_col_v2()
Dim j As Integer, i As Integer
'declaration des variables i et j en integer, cest a dire quils peuvent prendre de valeurs comprisent
'entre -32 768 et 32 767
Dim x As Boolean
'declaration de x en booléen, cad quil peut prendre les valeurs True ou False
x = False
'initialisation de x à False
For j = Range('IV1').End(xlToLeft).Column To 1 Step -1
'pour j allant de la derniere colonne non vide de la ligne 1 a la colonne 1 avec un pas de -1
For i = 2 To Range('a65536').End(xlUp).Row
'pour i allant de la ligne 2 a la derniere cellule non vide de la colonne A
If x = True Then Exit For
'si x vaut True alors je sors de la boucle for
If Cells(i, j).Value DIFF '' Then x = True
'si la cellule ligne i, colonne j est différente de vide alors x prend la valeur True
Next i
If x = False Then
'si x vaut False alors
Columns(j).Delete
'la colonne j est supprimée
End If
x = False
'on reinitialise x à False
Next j
End Sub