Function GetAnnee()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name And ws.Name <> "LIST" Then
ws.Range("E1:G1").Interior.Color = -1
ws.Range("G1").Font.ColorIndex = 2
Else
Range("E1:G1").Interior.Color = 65535
Range("G1").Font.ColorIndex = 3
Names("AN").Value = [A2].Value
End If
Next
'MsgBox "UPDATE DES JOURS FERIÉS"
End Function