Sub Macro1()
'
' Macro1 Macro
ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.AutoFilter Field:=3, Criteria1:="Résolu"
fin = ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.Rows.Count
Rows("2:" & fin).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ListObjects("Bdd_Extraction_redmine_29").Range.AutoFilter Field:=3
End Sub
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
Sub Macro1()
Application.ScreenUpdating = False
fin = ActiveSheet.UsedRange.Rows.Count
For i = fin To 2 Step -1
If (Range("B" & i) <> Range("G" & i)) And Range("C" & i) = "Résolu" Then Rows(i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub
j'ai copié ton code au même endroit que vgendron