Supprimer une ligne d'un tableau avec une macro

Sub test()
Dim c As Range, NoCol As Integer, DerLig As Long, NoContrat
    NoCol = 2
    DerLig = Range("B" & Rows.Count).End(xlUp).Row
    NoContrat = 125825

    With Worksheets("Tableau").Range(Cells(1, NoCol), Cells(DerLig, NoCol))
        Set c = .Find(NoContrat, LookIn:=xlValues, Lookat:=xlWhole)
        If Not c Is Nothing Then
            c.EntireRow.Delete
        End If
    End With
End Sub

Sub Effacer_un_contrat()
'
' Effacer_un_contrat Macro
' Macro enregistrée le 29/01/2009 par 0502618

If MsgBox("Confirmer la suppression du contrat !", vbYesNo, "Effacement :") = vbYes Then
  With Sheets("Tableau")
    Set c = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Find(Sheets("Controle").Range("C5"), LookIn:=xlValues, LookAt:= _
         xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
         True, SearchFormat:=True)
      If Not c Is Nothing Then c.EntireRow.Delete
      Exit Sub
  End With
Else
MsgBox "Oprération annulée", vbInformation, "Annulation"
End If

End Sub

    Rows("3:3").Select
    Selection.Delete Shift:=xlUp