Macro - planning

Bonjour,

Je suis débutante avec Excel, j'ai réussi

toute les étapes sauf la dernière pour ajouter la macro a mon planning. J'ai besoin d'aide svp :) je veux vraiment comprendre pourquoi ça ne marche pas.

Salut Métrailler,

Les colonnes 30 à 32 correspondent à [AD:AF] = les 26, 27 28 du mois : ça ne pouvait pas aller très fort !

Public Sub Masquer_Jour()
'
Dim iDay%
'
Application.ScreenUpdating = False
With Worksheets("Planning")
    iDay = Day(DateAdd("m", 1, CDate(.[F5])) - 1)
    .Columns("AG:AI").Hidden = False
    If iDay < 31 Then .Columns(Choose(iDay - 27, "AG:AI", "AH:AI", "AI:AI")).EntireColumn.Hidden = True
End With
Application.ScreenUpdating = True
'
End Sub

A+

Mille merci :) trop bien je peux continuer ! je te souhaite une bonne journée!!