Sub MAJ()
Dim ws As Worksheet, x As Range, i As Long
For Each ws In Worksheets
With ws
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If (.Cells(i, 6) = "Échéance proche" Or .Cells(i, 8) = "En retard") And .Cells(i, 4) = "DPO" Then
Set x = Sheets("Alertes_Recos").Columns(1).Find(.Cells(i, 1), , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
.Range("a" & i & ":b" & i & ",e" & i & ",g" & i & ":h" & ",j" & i & ":l" & i).Copy Sheets("Alertes_Recos").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8)
End If
End If
Next i
End With
Next ws
End Sub