XL 2013 Exécuter une liste déroulante automatiquement.

Sub Cout_de_revient2()
 With Worksheets("Feuil1")
 For i = 1 To 3
    .Range("B2") = .Cells(2, 8 + i)
    .Cells(9 + i, 5) = .Range("B7")
 Next
 End With
End Sub

=$B$3*RECHERCHEH( INDEX($I$2:$K$2;LIGNES($1:1));$H$2:$K$5;2;FAUX)+RECHERCHEH(INDEX($I$2:$K$2;LIGNES($1:1));$H$2:$K$5;3;FAUX)

With Worksheets("Feuil1")             ' avec la feuille Feuil1
 For i = 1 To 3                       ' boucle de 1 à 3
    .Range("B2") = .Cells(2, 8 + i)   '  B2 prend successivement la valeur de I2 (cells(2,8+1)), J2 (cells(2,8+2)) et K2 (cells(2,8+3))
    .Cells(9 + i, 5) = .Range("B7")   '  E10  (.Cells(9 + 1, 5)) puis E11 (.Cells(9 + 2, 5)) puis E12 (.Cells(9 + 3, 5))  prennent la valeur de B7
 Next 
 End With