Il m'est difficile de joindre le fichier, il est plutot lourd et les infos sont plutot confidentielles.
Toutefois j'ai continué à réfléchir au problème. J'ai essayé de construir une macro. Elle ne fonctionne pas bien. Mais ça donnera peut ê^tre une meilleure idée de ce que j'essaie de faire:
Sub Macro1()
'
' Macro1 Macro
'
'
'
For I = 10 To 33
' Lire ce qui se trouve dans la case AI
Range("AI").Select
Selection.Copy
Produit = Selection.Copy
' Se diriger vers la feuille Prix Juin
Sheets("Prix Juin").Select
' Chercher la case qui est égale à la case AI précédente
Lookat "Produit"
' Lire la ligne sur laquelle elle se trouve
J = Range("Produit")
Application.CutCopyMode = False
' Selectionner sur cette ligne les cases B,C,D
Range("(from B to D)J").Select
Selection.Copy
' Les coller sur la feuille Aiguillette Poulet à partir de la case BI
Sheets("Aiguilettes Poulet").Select
Range("BI").Select
ActiveSheet.Paste
End Sub
Je ne suis pas sure que la fonction Look at existe. Ni de pouvoir attribuer une valeur à Produit et à J.
Vos Lumières seraient d'une grande aide!