checkbox

Bonjour le forum,

j'ai une question relative au CheckBox .

Voila j'ai trouvé sur le forum quand on coche le checkbox l'envoie une valeur dans une cellule (Ax = valeur X).

If Me.CheckBox1 = True Then
Sheets("BD2").Cells(Lgn + 2, 5).Value = "X"
End If
If Me.CheckBox1 = False Then
Sheets("BD2").Cells(Lgn + 2, 5).Value = ""
End If

Mais dans le sens inverse quand la cellule (Ax) contient une valeur, le checkbox doit ce cocher automatiquement.

Merci par avance,