Re : Calendar
bonjour Bingo10,
click-droit sur la Feuil1, sélectionne Visualiser le code,
et colle cette macro, sur la page blanche à droite
Public no As Integer
Private Sub Calendar1_Click()
If no = 0 Then
Range("C6") = Calendar1.Value: no = 1
Else
Range("C8") = Calendar1.Value: no...