XL 2010 Rechercher valeur et supprimer ligne

Private Sub CommandButton1_Click()
   Dim Ws As Worksheet, c As Range, dl As Integer
   For Each Ws In Worksheets
      If Ws.Name = "DEX" Or Ws.Name = "DEX2" Or Ws.Name = "DEX3" Then
         dl = Ws.Range("a" & Rows.Count).End(xlUp).Row
         For Each c In Ws.Range("a2:a" & dl)
            If UCase(c.Value) = UCase(Me.TextBox1) Then c.EntireRow.Delete
         Next
      End If
   Next Ws
   Unload Me
End Sub

Private Sub CommandButton1_Click()
   Dim Ws As Worksheet, dl As Integer, Plage As Range, i As Byte
   For i = 1 To 3
      If Controls("textbox" & i) = "" Then
         MsgBox "Complétez les champs vides!"
         Exit Sub
      End If
   Next i
   For Each Ws In Worksheets
      If Ws.Name = "DEX" Or Ws.Name = "DEX2" Or Ws.Name = "DEX3" Then
         dl = Ws.Range("a" & Rows.Count).End(xlUp).Row
         Set Plage = Ws.Range("a2:a" & dl)
         Set nom = Plage.Find(what:=UCase(Me.TextBox1))   ', lookat:=xlWhole) '-->pour valeur exacte
         If Not nom Is Nothing Then
            lig = nom.Row
            For i = 1 To 3
               Ws.Cells(lig, i) = UCase(Controls("TextBox" & i))
            Next i
         Else
            MsgBox UCase(Me.TextBox1) & " non trouvé!", vbInformation, "RECHERCHE NOM"
            Exit Sub
         End If
      End If
   Next Ws
   MsgBox "Correction terminée!"
End Sub