Sub Test()
Dim Wsce As Worksheet
Dim Wtgt As Worksheet
Dim L As Long
Dim Lmax As Long
Dim Rng As Range
Set Wsce = Worksheets("Feuil1")
Set Wtgt = Worksheets("Incidents")
Wsce.AutoFilterMode = False
Lmax = Wsce.Cells(ActiveSheet.Rows.Count, "J").End(xlUp).Row
With Wsce.Range("B1:J" & Lmax)
.AutoFilter Field:=.Columns.Count, Criteria1:="=*d*", Operator:=xlOr, Criteria2:="=*i*"
If .SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then ' la ligne 1 est l'entête
Set Rng = Wsce.Range("B2:B" & Lmax).SpecialCells(xlCellTypeVisible)
Rng.EntireRow.Delete
End If
.AutoFilter Field:=.Columns.Count, Criteria1:="=*a*"
If .SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then ' la ligne 1 est l'entête
Set Rng = Wsce.Range("B2:B" & Lmax).SpecialCells(xlCellTypeVisible)
L = Wtgt.Cells(Wtgt.Rows.Count, "A").End(xlUp).Row
If L > 1 Then L = L + 1
Rng.Columns(1).Cells.SpecialCells(xlCellTypeVisible).Copy Wtgt.Cells(L, 1)
Rng.EntireRow.Delete
End If
End With
Wsce.AutoFilterMode = False
End Sub