Private Sub An_Change()
Jf
End Sub
'Private Declare Function GetTickCount Lib "Kernel32" () As Long
' Do
' On Error Resume Next
' Do While GetTickCount() < GetTickCount() + 500
' DoEvents
' Me.Caption = "Bienvenue, nous sommes le " & Date & " et il est " & Format(Now, "h:mm:ss;@")
' Loop
' Loop
...Avec la modification de Si..., ça ne gèle plus chez moi
... choix de l'année...