ça beug.
ça beug
n'est pas très explicite
quel est le message d'erreur ?
l'erreur ce produit sur quel ligne du code ?
j'ai mis le code dans une macro "Test" pour le vérifier pas à pas et j'e n'ai eu aucune erreur.
Sub test()
Dim Fe As Worksheet
Dim NumSem As Integer
For Each Fe In Worksheets
If Fe.Name <> "Date" And Fe.Name <> "Recap du 04 au 08" And Fe.Name <> "Recap du 11 au 15" And Fe.Name <> "Recap du 18 au 22" And Fe.Name <> "Recap du 25 au 29" Then
Select Case Weekday(DateSerial(Year(Date), Month(Date), Fe.Name), vbMonday)
Case 6, 7
Fe.Tab.ColorIndex = Worksheets("Date").Cells(6, 7).Interior.ColorIndex
Case Else
NumSem = Format(DateSerial(Year(Date), Month(Date), Fe.Name), "WW") - Format(DateSerial(Year(Date), Month(Date), 1), "WW")
If NumSem = 0 Then NumSem = 1
Fe.Tab.ColorIndex = Worksheets("Date").Cells(NumSem, 7).Interior.ColorIndex
End Select
If Fe.Name = Day(Date) Then Fe.Tab.ColorIndex = 3
End If
Next Fe
End Sub