Sub Macro1BIS()
Dim Filtre As Range, Dest As Range
Set Dest = Sheets("plan d'actions").[A4]
Selection.AutoFilter Field:=5, Criteria1:="<>"
Set Filtre = [_FilterDataBase]
Filtre.Offset(1, 0).Resize(Filtre.Rows.Count - 1, Filtre.Columns.Count - 2).SpecialCells(12).Copy Dest
Filtre.Columns(7).Offset(1, 0).Resize(Filtre.Rows.Count - 1).SpecialCells(12).Copy Dest.Offset(, 5)
End Sub