Private Sub CommandButton1_Click()
Dim Ligne As Integer, Colonne As Integer
Ligne = 6 + (4 * Month(Calendar1.Value))
Colonne = 1 + Day(Calendar1.Value)
Cells(Ligne, Colonne).Select
Unload JourPrecis
If ActiveCell.Offset(1, 0) = 'P' Then 'le 'P' signifie que c'est un jour presté
ActiveCell.Offset(1, 0).Value = 'V' ' le 'v' veut dire 'vacance'
ActiveCell.Offset(1, 0).Interior.ColorIndex = 15
End If
End Sub