Private Sub Worksheet_Calculate()
Columns("AD").Hidden = Month([AD6]) <> Month([B6])
Columns("AE").Hidden = Month([AE6]) <> Month([B6])
Columns("AF").Hidden = Month([AF6]) <> Month([B6])
End Sub
C'est simplement pour avoir un tableau qui se termine avec le dernier jour du mois.bien sur c'est possible mais je ne vois pas l'intérêt...
A+ François
Private Sub Worksheet_Calculate()
Columns("AD").Hidden = Month([AD6]) <> Month([B6])
Columns("AE").Hidden = Month([AE6]) <> Month([B6])
Columns("AF").Hidden = Month([AF6]) <> Month([B6])
End Sub