VBA boucle While

[charlen]

Bonsoir à tous,
Je dois créer un outil d'aide à la décision et je souhaite faire une macro assez compliké.
G plusieurs feuilles :
1) Saisie de nouveaux litiges transport
N° d'envoi : 5
Produit : (But : faire une liste déroulante avec seulement les produits présent dans l'envoi correspondant, ici, 5)
2) Envois
Sont répertoriés les envois.
3 - Réf produit X
5 - réf produit Y
5- réf produit Z
3) Calculs
Je veux que ma macro en fonction du n° d'envoi sélectionné en 1), copie tous les numéro de mon envoi et lé produit correspondant :
ex dans ce cas : 5 - réf produit Y
5 - réf produit Z
Ceci me permettra ensuite de créer ma liste déroulante dans 1).

Jariv juste a obtenir un seul n° d'envoi dans ma feuille calcul é g fé 7 macro :
Sub produitok()
Sheets("Nouveau litige transport").Select
Range("D9").Select
Selection.Copy
Sheets("commandes").Select
Range("I7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a = 4
While Cells(a, 1) <> 0
If Cells(a, 1) = Range("I7").Value Then

Sheets("Calculs").Select 'rajout d'une ligne dans la feuille calcul
Rows("12:12").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A12:B12").Select
Selection.Copy
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A12:B12").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A12").Select

Sheets("Nouveau litige transport").Select 'sélectionne le n° d'envoi
Range("D9").Select
Selection.Copy
Sheets("Calculs").Select
Range("A12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B12").Select 'recherche du produit
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],commandes!R[-7]C[-1]:R[-1]C[2],4,FALSE)"
'copie le n° d'envoi et fait la recherchev

Else
End If
a = a + 1

Wend

End Sub

J'espère que je me suis faite comprendre. Merci d'avance a tous