Bonjour à tous,
Je n'ai pas de réponse à ta demande ...
Par contre, en tenant de tester ton fichier ... au lancement de la macro Sub etape2() ...
j'ai un message >> "Erreur de compilation ... Procédure trop grande" ...
Pour réduire la macro ... change ...
If Cells(i, 13).Value = "Khmer Organic" Then
KO = KO + 1
End If
pour ...
If Cells(i, 13).Value = "Khmer Organic" Then KO = KO + 1
Il y en à une tonne à faire ...
Il y a aussi des choses telles ...
Range(Cells(i, 8), Cells(i, 12)).Copy
Cells(j, 1).Select
ActiveSheet.Paste
à remplacer par ...
Range(Cells(i, 8), Cells(i, 12)).Copy Cells(j, 1)
Il y en a plusieurs à corriger ...
ric