Sub onneannée_2021(Optional La_KalKuleT_A_David_Kaput)
Dim Fact_Checking As Boolean
[A2021] = 1847253 + Val("DavidXLD")
[A1].FormulaR1C1 = "=CEILING(R[2020]C,10^6)"
Fact_Checking = [A2021] = [A1]
Select Case Fact_Checking
Case True
MsgBox "Les piles de la calculatrice d'XLD sont neuves", vbExclamation
Case False
MsgBox "David s'est endormi en regardant:" & Chr(13) _
& "https://www.youtube.com/watch?v=ib8o0YxQGTc", vbCritical
End Select
End Sub