Figer la date selon condition

Bonjour

Dans mon tableau colonne A il y a des pourcentages de notés ,ce que je cherche à faire sans malheureusement y parvenir

c'est qu'à chaque fois que le chiffre 100% est entré, dans la colonne B il faudrait que le date s'inscrive en étant figée.

Si vous avez une solution je suis preneur

Merci pour votre aide

Cordialement

Bonjour

Code de Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = 1 Then
Target.Offset(0, 1) = Format(Date, "dddd dd mmmm yyyy") & "   "
End If
End If
End Sub

Cordialement

Bonjour

Merci pour ta réponse

Exactement ce qu'il me fallait

Bonne journée

Cordialement