Private Sub UserForm_Initialize()
If ActiveCell.Address = "$E$8" Then
ListBox1.RowSource = "liste_chantier1"
Else
If ActiveCell.Address = "$E$13" Then
ListBox1.RowSource = "liste_chantier2"
Else
If ActiveCell.Address = "$E$18" Then
ListBox1.RowSource = "liste_chantier3"
End If
End If
End If
End Sub