Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double clic dans la cellule
Dim li As Long 'déclare la variable li
Dim ch As String 'déclare la variable ch
Cancel = True 'évite le mode édition lié au double-clic
li = Target.Row 'définit la variable li
ch = InputBox("Tapez le texte recherché", "Recherche") 'définit la variable ch (boîte de saisie)
For x = 1 To 256 'condition : boucle sur toutes les cellules de la ligne
If Cells(li, x) = ch Then 'si la cellule =ch
GoTo fin 'va à la balise "fin"
End If 'fin de la condition
Next x 'prochaine cellule de la ligne
Exit Sub 'sort de la procédure
fin: 'balise
Rows(li).Delete 'supprime la ligne
End Sub