Sub TestF55()
Dim Wsce As Worksheet
Dim Wtgt As Worksheet
Dim L As Long
Dim Lmax As Long
Dim Rng As Range
Set Wsce = Worksheets("Mes actions")
Set Wtgt = Worksheets("Incidents")
Wsce.AutoFilterMode = False
Lmax = Wsce.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
On Error Resume Next
With Wsce.Range("A1:K" & Lmax)
.AutoFilter Field:=.Columns.Count, Criteria1:="=*d*", Operator:=xlOr, Criteria2:="=*i*"
Set Rng = Wsce.Range("A2:K" & Lmax).SpecialCells(xlCellTypeVisible) ' la ligne 1 est l'entête
If Not Rng Is Nothing Then Rng.EntireRow.Delete
.AutoFilter Field:=.Columns.Count, Criteria1:="=#N/A"
Set Rng = Wsce.Range("A2:K" & Lmax).SpecialCells(xlCellTypeVisible) ' la ligne 1 est l'entête
If Not Rng Is Nothing Then
L = Wtgt.Cells(Wtgt.Rows.Count, "A").End(xlUp).Row
If L > 1 Then L = L + 1
Rng.Columns("B").Cells.SpecialCells(xlCellTypeVisible).Copy Wtgt.Cells(L, "A")
Rng.Columns("E").Cells.SpecialCells(xlCellTypeVisible).Copy Wtgt.Cells(L, "B")
Rng.Columns("G").Cells.SpecialCells(xlCellTypeVisible).Copy Wtgt.Cells(L, "C")
Rng.EntireRow.Delete
End If
End With
Wsce.AutoFilterMode = False
End Sub