Private Sub ListBox1_Click()
' ************** to devellop still that the correct listbox is selected depinding which language selected
' to develop vba code that the correct text is but in listbox4
ListBox4.Enabled = False ' click in that listbox is possible
ListBox4.Locked = False ' listbox can be modified
' ******************************************* bug, ne fonctionne pas
Select Case ListBox1.List(ListBox1.ListIndex)
Case "french"
ListBox4.RowSource = "ref.!G2:G" & Sheets("ref.").Range("G65536").End(xlUp).Row 'main langauge
Case "english"
ListBox4.RowSource = "ref.!H2:H" & Sheets("ref.").Range("H65536").End(xlUp).Row 'main langauge
Case "german"
ListBox4.RowSource = "ref.!I2:I" & Sheets("ref.").Range("I65536").End(xlUp).Row 'main langauge
Case "hindi"
ListBox4.RowSource = "ref.!J2:J" & Sheets("ref.").Range("J65536").End(xlUp).Row 'main langauge
Case "chinese"
ListBox4.RowSource = "ref.!K2:K" & Sheets("ref.").Range("K65536").End(xlUp).Row 'main langauge
Case "russian"
ListBox4.RowSource = "ref.!L2:L" & Sheets("ref.").Range("L65536").End(xlUp).Row 'main langauge
End Select
...