Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig&, i&
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = derlig To 2 Step -1
If Cells(i, 3).Value = "Résolu" And Cells(i, 7).Value <> Cells(i, 2) Then Rows(i).Delete
Next i
Cancel = True
End Sub