Masquer et afficher des colonnes suivant le critère d'une cellule de réf

Bonjour,

Je sollicite votre aide car je n'arrive pas à écrire un code me permettant de masquer des colonnes suivant la donnée d'une cellule.

J'ai un tableau avec les dernières colonnes (de D à BD) qui correspondent au N° de semaine. en titre de tableau des semaines S1;S2;S3;S4; etc...

J'ai en A6 le N° de semaine calculé suivant la date du jour.

j'aimerais à l'aide d'une macro masquer toutes les colonnes des semaines comprissent entre D et BD qui sont différentes de celle indiquée en A6.

Merci d'avance pour votre aide.

bonjour David D.

Avec les 3 macros ici dessous, vous pouvez cacher et montrer ces colonnes

Sub Montrer()
     Cacher_montrer True                     'montrer toutes les colonnes
End Sub

Sub Cacher()
     Cacher_montrer False                    'cacher toutes les colonnes sauf semaine X
End Sub

Sub Cacher_montrer(bShow As Boolean)
     With Sheets("feuil1")
          .Range("D1:BD1").EntireColumn.Hidden = Not bShow
          If bShow = False Then
               r = Application.Match("S" & .Range("A6").Value, .Rows(9), 0)
               If IsNumeric(r) Then
                    .Columns(r).Hidden = False
               Else
                    MsgBox "semaine introuvable"
               End If
          End If
     End With
End Sub

Bonjour BsAlv,

Merci beaucoup , c'est parfait.

Bonne soirée.