Problème Macro

Bonjour,

Voici une macro que j'utilise pour masquer des colonnes vides sur excel cependant cette macro ne masque pas les cellules où figure des formules. Comment dois-je modifier cette macro afin de masquer les cellules dont le résultat de la formule rend la cellule vide ?

Exemple : =SI(A1=0;"")

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Byte 'déclare la variable COL (COLonne)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
For COL = 5 To 40 'boucle sur les colonne 5 à 40 (=> E à AN)
   'masque (>0) /affiche(=0) la colonne en fonction du nombre de valeurs contenues dans la colonne
   O.Columns(COL).Hidden = IIf(Application.WorksheetFunction.CountA(O.Columns(COL)) = 0, True, False)
Next COL 'prochaine colonne de la ligne
End Sub

Merci

Bonjour,

CountA n'est pas adéquat pour ce cas.

Il faut tester si <>"" . Il serait bon de dimensionner la colonne...