Probléme de double éxécution?

Bonjour a tous,
je réalise un petit programme, et jeme trouve confronté à un probléme.
Voici mon code

Private Sub VAE1_Click()
If Range("PMoisnum").Value < 1 Then
VAE1 = False
MsgBox "Le mois de Janvier est terminé, il n'est pas possible d'ajouté un virement automatique.", vbInformation
End If
End Sub

quang j'éxécute mon code, le message de msbbox apparait 2 fois.
je ne comprend pas pourkoi.

VEA1 est une chekbox.

Merci de votre aide.