Bonjour ben7777
Faut des boucles For...
C'est vrai mais si je te donne la macro suivante, c'est plus efficace :
Sub sup_col_vides()
Dim c
For c = 256 To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1,c).EntireColumn.Delete
Next c
End Sub
Merci de me dire si cela fonctionne...
toujours zen