RESOLU - Bug dans code

Sub Valider_Click()
Dim f As Worksheet
Dim r As Range
Dim c As Range
Dim a As String

malist = Range("Noms")
Me.ListBox1.List = malist

   Application.ScreenUpdating = False
  'Chercher le nom et le prénom dans la base de données
  With Worksheets("Base")
    Set r = .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
  End With
  Set c = r.Find(What:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then a = c.Address
  Do While Not c Is Nothing
  'Vérifier le prénom
  If c.Offset(0, 1).Value = ListBox1.List(ListBox1.ListIndex, 1) Then Exit Do
  Set c = r.FindNext
  If c.Address = a Then Set c = Nothing
  Loop