Bonjour MFerrand,
Déjà désolé pour le retard dans la réponse et en plus je ne comprends pas tout dans ta réponse.
Dans le fichier joint, il y a deux feuilles, une avec un calendrier qui fonctionne bien (onglet 2018 Horizontal) et une deuxième (onglet 2018 Vertical).
Il y a un code dans ThisWorkbook que je voudrais modifier pour qu'il fonctionne avec le calendrier vertical.
Je sais pas si c'est clair, même moi j'ai du mal à me comprendre ce matin
Merci
Private Sub Workbook_Open()
Dim NumMois As Integer, NumJour As Integer
NumMois = Month(Now()): NumJour = Day(Now())
Application.ScreenUpdating = False
For i = 2 To 32
For j = 10 To 76 Step 6
Cells(j, i).Select
Range(Cells(j, i), Cells(j + 1, i)).Interior.ColorIndex = 36
Range(Cells(j, i), Cells(j + 1, i)).BorderAround Weight:=xlThin
Range(Cells(j, i), Cells(j + 1, i)).Font.Bold = True
Range(Cells(j, i), Cells(j + 1, i)).Font.ColorIndex = 1
Range(Cells(j, i), Cells(j + 1, i)).BorderAround Weight:=xlThin
Next
Next
Range(Cells(4 + (NumMois * 6), 1 + NumJour), Cells(4 + (NumMois * 6 + 1), 1 + NumJour)).Interior.ColorIndex = 3
Range(Cells(4 + (NumMois * 6), 1 + NumJour), Cells(4 + (NumMois * 6 + 1), 1 + NumJour)).Font.Bold = True
Range(Cells(4 + (NumMois * 6), 1 + NumJour), Cells(4 + (NumMois * 6 + 1), 1 + NumJour)).Font.ColorIndex = 2
Range(Cells(4 + (NumMois * 6), 1 + NumJour), Cells(4 + (NumMois * 6 + 1), 1 + NumJour)).BorderAround Weight:=xlMedium
Range("G2").Select
Application.ScreenUpdating = True
End Sub