Sub recap2()
ligne = 2
For Each s In Array("machine1", "machine2")
For lig = 2 To Sheets(s).[A65000].End(xlUp).Row
If Sheets(s).Cells(lig, 5) = "OUI" Then
Sheets(s).Rows(lig).Copy Sheets("commande").Cells(ligne, 1)
Cells(ligne, 6) = s
ligne = ligne + 1
End If
Next lig
Next
End Sub