Bonsoir,
Les formules ne font aucune action (Supprimer / Copier / Coller : Tout cela n'est possible que par macro.
Les macros sont de véritables pièces d'horlogerie et nécessitent un investissement lourd (en temps)
Sur ton modèle cette macro convient. Sur ton vrai fichier ???
Sub test()
Application.ScreenUpdating = False
i = Worksheets("Feuil2").Range("A1").End(4).Row
For ii = i To 1 Step -1
If Cells(ii, 1) = 0 Then Rows(ii).Delete
Next
i = Worksheets("Feuil2").Range("A1").End(4).Row
For ii = 2 To i
k = Cells(ii, 1) + 5
Cells(ii, 2).Interior.ColorIndex = Worksheets("PROD03").Cells(k, 2).Interior.ColorIndex
Next
End Sub
A+