Bonjour,
j'ai été trés clémente et tout fonctionne merci j'ai juste pas compris l'utilité de cette macro :
Sub Cache_Colonne(L_Année As Integer)
Dim Bcl As Integer
Application.ScreenUpdating = False
ActiveSheet.Range("A1:AII1").EntireColumn.Hidden = False
For Bcl = 5 To 975
If ActiveSheet.Cells(1, Bcl).Value <> L_Année Then ActiveSheet.Cells(1, Bcl).EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Je détail tout pour comprendre et pouvoir m'en resservir sur d'autres pages^^.
Merci
Du coup je peux signer clémence je suis dévoiler...