Private Sub ComboBox2_Change()
ActiveWorkbook.Names.Add Name:="Plage_Societes", RefersToR1C1:="=Donnees_bourse!R4C19:R" & Act + 3 & "C21"
ComboBox2.ListFillRange = "Donnees_bourse!Plage_Societes"
If ComboBox2.ListIndex = -1 Then Exit Sub 'si aucun élément de la liste n'est sélectionné
Ligne = ComboBox2.Column(2)
Syb = ComboBox2.Column(1)
nom = ComboBox2.Column(0)
Sheets("Resume").Range("A5") = Syb
Sheets("Resume").Range("A4") = nom
End Sub