Bonjour,
à copier sur la page code de ATTESTATION
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" Then
If Not IsError(Application.Match(Range("$C$8"), Sheets("DONNEES").Range("A:A"), 0)) Then
Target.ClearContents
End If
End If
End Sub