Comment tester si tout une colonne est vide

[Gregory Copin]

Je dois compter le nombre de colonnes qui sont probablement rempli dans ma feuille. Problème, les cases de chaques lignes ne sont pas toujours rempli.

La meilleure solution serait de chercher la première colonne vide, mais je ne connais pas la fonction vba
Merci d'avance

 

[STéphane]

une solution (non optimale mais bien quand même
Sub test()
For Each cl In ActiveSheet.UsedRange.Columns
If Application.CountA(cl) <> 0 Then colremplies = colremplies + 1
Next cl
MsgBox colremplies
End Sub