Masquer des lignes et des colonnes selon la valeur des cellules

Bonjour à tous,

J'ai un fichier Excel de planification de projet (échéancier) fait sous forme d'un diagramme de gantt. J'aimerais masquer des lignes et des colonnes en une seule fonction VBA. J'essaie actuellement, mais c'est très lourds. Voici ce que le code doit faire :

Ligne : de la ligne A7 à A506 si dans la colonne A la cellule est vide alors masquer la ligne.

Colonne : de la colonne J1 à ATU1 si dans la ligne 1 la cellule est vide alors masquer la colonne.

Pouvez-vous m'aider merci!

Bonsoir CedL, le forum,

A tester:

Sub masquer()
 Dim lig%, col%
  Application.ScreenUpdating = False
   With Sheets("Ta_feuille") ' nom à adapter
    '.Rows.Hidden = False: .Columns.Hidden = False
     For lig = 7 To 506
      If .Cells(lig, "A") = "" Then Rows(lig).Hidden = True
     Next lig
     For col = 10 To 46
      If .Cells(1, col) = "" Then Columns(col).Hidden = True
     Next col
   End With
End Sub

Cordialement,

Ça fonctionne très bien merci beaucoup!