Code VBA pour masquer des lignes vides

Bonjour à tous,

je m'essaie depuis peu à la programmation VBA.

J'ai un problème sur un sujet qui sera pour vous assez simple je pense.

Je souhaite masquer des lignes vides lorsque ces dernières sont vides à partir de la colonne B à jusqu'à G

J'ai essayé de créer la macro Cacher_lignevide sur la plage de donnée B30 à G43 pour commencer.

Le problème c'est que la macro me masque les lignes même avec des données dans les cellules concernées.

Pouvez-vous m'aider svp ?

Mon fichier en pièce jointe.

Merci d'avance

Bonjour

Essayez ceci

Sub Cacher_lignevide()
Dim cellule As Range

Application.ScreenUpdating = False
With Sheets("Planning")
    For Each cellule In .Range("B30:B43")
        If WorksheetFunction.CountA(.Range("B" & cellule.Row & ":G" & cellule.Row)) = 0 Then
        cellule.EntireRow.Hidden = True
        End If
    Next cellule
End With
Application.ScreenUpdating = True
End Sub

Cordialement

ça fonctionne !

Merci DAN

Cordialement

Parfait

Un conseil toutefois au sujet de CELLULE. Evitez d'utiliser ce mot car il fait partie des instructions possible d'excel. Dans le code, changez le mot CELLULE au profit de CEL par exemple

Pour montrer les lignes et vu que le bouton est sur la feuille planning, nul besoin d'utiliser le SELECT

Sub Afficher_lignecaché()
Sheets("Planning").Rows.EntireRow.Hidden = False
End Sub

Cordialement