Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué

Private Sub UserForm_Initialize()
    Dim j As Integer
    'Récupère les données de la colonne J de la feuille Données...
'    Sheets("Données").Activate
'    Sheets("Données").Select
    For j = 3 To Range("J104800").End(xlUp).Row
    ComboBoxModele_mon = Sheets("Données").Range("J" & j)
    '...et filtre les doublons
    If ComboBoxModele_mon.ListIndex = -1 Then ComboBoxModele_mon.AddItem Sheets("Données").Range("J" & j)
    Next j
End Sub

ComboBoxModele_mon.list=[Tableau1[nom de la colonne J]].value

ou (pour supprimer les doublons)

For j = 3 To [Tableau1].rows.count

ComboBoxModele_mon =[Tableau1].item(j,10)

'...et filtre les doublons

If ComboBoxModele_mon.ListIndex = -1 Then ComboBoxModele_mon.AddItem [Tableau1].item(j,10)

Next j

Private Sub UserForm_Initialize()
Dim j As Integer, k As Integer, ok As Boolean
'Récupère les données de la colonne J de la feuille Données...
    With ThisWorkbook.Sheets("Données")
        For j = 3 To .Range("J104800").End(xlUp).Row
            ok = True
            For k = 0 To ComboBoxModele_mon.ListCount - 1
'...et filtre les doublons
                If ComboBoxModele_mon.List(k) = .Range("J" & j) Then ok = False: Exit For
            Next k
            If ok Then ComboBoxModele_mon.AddItem .Range("J" & j)
        Next j
    End With
End Sub

Me.ComboBox1.List = [SORT(UNIQUE(Tableau1[xxx]))]

Private Sub UserForm_Initialize()
Dim d As Object, tablo, i&
Set d = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Sheets("Données")
    tablo = .Range("J3:K" & .Range("J104800").End(xlUp).Row) 'matrice, plus rapide, au moins 2 éléments
End With
For i = 1 To UBound(tablo)
    d(tablo(i, 1)) = ""
Next
ComboBoxModele_mon.List = d.keys
End Sub