Dim Tata As Range
Dim Valg, Vald, g, d, Mot
Dim vBat As Integer
'Voir autre chose pour connaître l'adresse de la cellule active
UserForm2.ListBox1.Clear
vBat = Application.Match(UserForm2.ComboBox1.Text, Range("A:A"), 0)
For Each Tata In Range("b" & vBat & ":b65356")
If Tata <> "" Then
If Tata.Offset(0, 1) <> "" Then
UserForm2.ListBox1.AddItem ("Nom batiment: " & Tata & "/ N° salle: " & Tata.Offset(0, 1))
Else
If Tata.Offset(0, 1) = "" Then Tata.Offset(0, 1) = 0
UserForm2.ListBox1.AddItem ("Nom batiment: " & Tata & "/ N° salle: " & Tata.Offset(0, 1))
End If
Else: Exit Sub
End If
Next Tata