Bonjour Damien,
Tu peux essayer le code suivant dans le private module de ta feuille1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Application.WorksheetFunction.CountIf(Sheets(2).Range("A:A"), Target.Value) > 0 Then
UserForm1.Show
End If
End If
End Sub
Cordialement.
Didier