Salut GHISLAIN
bon tout ce passe dans cette procèdure qui se déclenche lors de l'ouverture du userform a cette occassion je charge un tableau des données de chaque feuille afin de pouvoir les utiliser ensuite
Sub Charge_Tablo()
Dim Ws As Worksheet 'déclare Ws comme étant une feuille
Dim C As Byte
Dim j As Integer
Set Unique = New Collection
For Each Ws In Worksheets ' et ici pour chaque Ws donc feuille de la collection(WorkSheets)des feuilles de ce classeur
With Ws 'avec cette feuille with évite de répéter ce qui le suit soit Ws devant chaque point
I = .Range('A65536').End(xlUp).Row 'je détecte la derniere ligne de la colonne A non vide en partant du Bas
Tablo = .Range(.Cells(2, 1), .Cells(I, 9)).Value 'ici je charge le tableau(tablo) des valeurs de la plage déterminer
End With
On Error Resume Next
For L = 1 To UBound(Tablo, 1)
ReDim Preserve TabResult(8, X)
For C = 0 To 8
TabResult(C, X) = Tablo(L, C + 1)
Next
Unique.Add Tablo(L, 2), CStr(Tablo(L, 2))
X = X + 1
Next L
Erase Tablo
X = X + 1
Next
On Error GoTo 0
For j = 1 To Unique.Count
Userform1.ComboBox1.AddItem Unique(j)
Next j
End Sub
content d'avoir pu t'aider
n'hésite pas
bonne journée