Option Explicit
Private Sub Workbook_Open()
With ThisWorkbook
' Lors de la première ouverture du fichier, vérification
' si la variable Excel 'AboutCheck' est présente (peut être pas nécessaire enfin..)
If .Names.Count = 0 Then
' La valeur par défaut du CheckBox est a faux. La raison est que
' Si l'utilisateur a décidé de ne plus voir cette boite de dialogue
' lors de l'ouverture du fichier, et que par un autre moyen vous
' donner la possibilité à l'utilisateur de revoir ce choix, la valeur par défaut
' est forcément à Faux
' ici on force donc la valeur Vrai au CheckBox lors de la première ouverture
.Names.Add Name:='AboutCheck', RefersToR1C1:='=1'
About.CheckBox1 = True
Call About.Show
Else
' Si la valeur est a Vrai(1), la boite de dialogue va apparaitre
If .Names('AboutCheck').Value = '=1' Then Call About.Show
End If
End With
End Sub