Bonsoir,
Pour répondre à la 1ère question...
Euh, même si l'USF se nomme UserForm1, il ne faut pas mettre son nom dans l'Initialize
Private Sub UserForm1_Initialize() 'à l'initialisation de l'UserForm
Mais mettre tout simplement :
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Et ensuite, comme il n'y a pas d'onglet nommé "Immeuble", tu auras aussi une erreur...
Et ensuite, pour la 2ème question, privilégier un balayage de plage de cellules, avec .AddItem, qu'utiliser la méthode .List
Style :
Dim Cel As Range
For Each Cel In AN.Range("B3:B" & AN.Cells(Application.Rows.Count, 2).End(xlUp).Row)
If Cel <> "" Then Me.ComboBox1.AddItem UCase(Cel.Value)
Next Cel
Bon courage