Bonjour à toutes et tous,

J'ai une macro qui fonctionne, elle fait le boulot. (C'est du bricolage du dimanche).
Mais elle est un peu lente.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Masquer_WE1()
'Masquer les Sam et Dim
'Le 17/01 fonctionne mais un peu lent
 
Const l_jour = 3 'Ligne 3 contenant les jours sous forme de jjj soit lun, mar, sam, dim
Const c_deb = 9 ' colonne I (01/01)
Const c_fin = 740 ' colonne ABJ (31/12) ou colonne ABL pour années bissextiles
Dim col As Integer
 
    For col = c_deb To c_fin
        If (Cells(l_jour, col)) = "sam" Then
            Columns(col).Hidden = True
        End If
 
        If (Cells(l_jour, col)) = "dim" Then
            Columns(col).Hidden = True
        End If
 
    Next col
 
End Sub
Auriez vous une idée d'amélioration pour ma gouverne ?
Par avance, merci
Philippe