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