Private Sub CB_1_Click()
'Déclaration des variables
Dim Ref As String
Dim l As Long
Dim ws As Worksheet
Do
Ref = InputBox(prompt:="Saisir la référence de l'opération à supprimer", Title:="Saisie")
Loop Until IsNumeric(Ref)
Select Case ws
Case ("Feuil1")
Case ("recap")
Case Else
'Boucle de test pour evité les plantage en cas de saisie de lettre
'Boucle de suppression des lettres en partant du bas du tableau
'pour eviter les sauts si l'on part du début
'Ne nécessite pas un tableau trié
For l = Cells(65536, 3).End(xlUp).Row To 2 Step -1
' Test de la valeur en colone 3 pour suppression
If Cells(l, 3).Value = (Ref) Then
Rows(l).Select
Selection.Delete (xlUp)
End If
Next l
End Select
End Sub