Bonjour,
Dans un Usf, j'ai 2 ListBox (1 & 2)

Dans :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
'Remplir la ListBox1
'spécifie que la première cellule précédent
'la plage source est utilisée comme titre dans la ListBox.
ColumnHeads = True
Dim i As Integer, Valeur As Variant, Unique As Collection
'Application.ScreenUpdating = False
Sheets("mp3").Activate
'Calcul le nombre de lignes non vide en colonne A
i = Range("A65536").End(xlUp).Row
'Pour eviter les messages d'erreur
On Error Resume Next
 
On Error GoTo 0
 
'Me.ComboBox1.SetFocus
Me.ComboBox1.List = Range("mp3!A1:B5000").Value
Sheets("Sel").Activate
'Application.ScreenUpdating = True
End Sub
Dans la partie code de l'Usf :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub ListBox1_Change()
Sheets("Sel").Activate
Range("B9").Value = Me.ListBox1.Value
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub ListBox2_Change()
Sheets("Sel").Activate
Range("B10").Value = Me.ListBox2.Value
End Sub
Comment alimenter la Listbox2 à partir de Sheets("Fb").Activate

Codes m'ont été gentiment donné par RJamin que je remercie de nouveau.