Salut Marie,
Voici un code qui devrait convenir :
Private Sub Calendar1_Click()
'Instruction neutralisée :
'Calendar1.Value = Today
Unload UserForm1
ActiveCell.Value = Format(Calendar1.Value, "mm/d/YY")
End Sub
Private Sub UserForm_Activate()
If IsDate(ActiveCell.Value) Then
Calendar1.Value = ActiveCell.Value
Else
Calendar1.Value = Date
End If
End Sub
A chaque ouverture du calendrier, si la cellule contient une date, elle sera affichée sinon on prend la date du jour.
Tu devrais égalemement retirer la valeur Day = 15 des propriétés de ton calendrier.
A+
Horatio