Private Sub ComboBox1_Change()
Dim L As Long
L = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
Me.Label17 = Me.ComboBox1
With Sheets("GESTION")
Me.Label28 = .Range("B" & L).Text
Me.Label27 = .Range("C" & L)
Me.Label8 = .Range("D" & L)
Me.Label13 = .Range("E" & L)
Me.Label26 = .Range("F" & L)
Me.Label44 = .Range("G" & L)
Me.Label24 = .Range("H" & L)
Me.Label39 = .Range("I" & L)
Me.Label25 = .Range("J" & L)
Me.Label22 = .Range("K" & L)
Me.Label23 = .Range("L" & L)
Me.Label32 = .Range("O" & L)
End With
End Sub