Bonjour Gaets, bonjour le forum
Affecte le code ci-dessous à ta liste déroulante (moi je l'aurais faite un peu plus grande peut-être !...) :
Sub Zonecombinée4_QuandChangement()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim V As Integer 'déclare la variable V (Valeur)
Set O = Worksheets("Test macro") 'définit l'onglet O
V = O.Range("G16").Value 'définit la valeur V
O.Rows(13).ClearContents 'efface d'éventuelle anciennes données en ligne 13
'copie la ligne concerné de l'onglet "Feuil1" dans la cellule E13
Sheets("Feuil1").Cells(V + 2, 5).Resize(1, 41).Copy O.Range("E13")
End Sub