Private Sub ListBoxLocataire_Click()
TextBox1.Value = Range("c" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox2.Value = Range("j" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
ComboBox1.Value = Range("k" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
TextBox6.Value = Range("l" & ListBoxLocataire.List(ListBoxLocataire.ListIndex, 12)) '.Offset(ListBoxLocataire.ListIndex + 1, 0)
End Sub