Bonjour
Remplace la macro actuelle par celle-ci
Option Explicit
Sub TypeDeJours()
Dim I As Integer, Fériés
Dim NbLg As Long
Application.ScreenUpdating = False
NbLg = Range("A" & Rows.Count).End(xlUp).Row
With Range("B5:AG70")
.Interior.ColorIndex = xlNone
.Font.Bold = False
.Font.ColorIndex = xlAutomatic
End With
Fériés = JoursFeries(Year(Range("B5")))
For I = 2 To 32
If Weekday(Cells(5, I), 2) > 5 Then
With Range(Cells(5, I), Cells(NbLg, I))
.Interior.ColorIndex = 40
.Font.Bold = True
End With
End If
If Not IsError(Application.Match(Cells(5, I), Fériés, 0)) Then
With Range(Cells(5, I), Cells(NbLg, I))
.Interior.ColorIndex = 36
.Font.Bold = True
.Font.Color = RGB(255, 0, 0)
End With
End If
Next I
'Calculate
End Sub