XL 2019 Remplir une combobox avec une ligne

Sub Afficher2()
Dim Lcol As Range, Lrow As Range
  ' On définit la plage où se situent les données
    Set Lrow = Columns("A").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    Set Lcol = Rows(2).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    Set Data = Range("C3", Cells(Lrow.Row, Lcol.Column))
    
   ' On continue uniquement si la cellule selectionnée fait partie des données
    If Not Intersect(Selection, Data) Is Nothing Then
        UserForm2.Show
    Else
        MsgBox "vous n'avez pas sélectionné une cellule donnée", vbCritical
    End If
End Sub

Private Sub userform_initialize()
Dim Lcol As Range, Plage As Range
  ' dernière cellule non vide de la ligne sélectionnée
    Set Lcol = Rows(Selection.Row).Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    Set Plage = Range("C" & Lcol.Row, Lcol)
    If Plage.Cells.Count > 1 Then
        ComboBox1.List = Application.Transpose(Plage.Value)
    Else
        ComboBox1.AddItem Selection.Value
    End If
    ComboBox1 = Selection
End Sub

If Plage.Cells.Count > 1 Then
        ComboBox1.List = Application.Transpose(Plage.Value)
    Else
        ComboBox1.AddItem Selection.Value
    End If

Private Sub UserForm_Initialize()
Dim derlig  As Long
    With ComboBox1
        derlig = Cells(Rows.Count, "C").End(xlUp).Row 'derniere ligne en colonne C  à partir de  la lig 3
        .List = [c3:N3].Resize(derlig + 1 - 2).Value'-2 par ce que l'on commence a la ligne 3
        .RemoveItem (.ListCount - 1)
    End With
End Sub

Private Sub UserForm_Initialize()Dim derlig  As Long
With ComboBox1
.List = [c3:N3].Resize(2).Value'-2 par ce que l'on commence a la ligne 3
.RemoveItem (.ListCount - 1)
End With
End Sub

Private Sub UserForm_Initialize()
Dim derlig  As Long
    With ComboBox1
      .columncount=[c:n].columns.count
         .List = [c3:N3].Resize(derlig + 1 - 2).Value'-2 par ce que l'on commence a la ligne 3
        .RemoveItem (.ListCount - 1)
    End With
End Sub

Private Sub UserForm_Initialize()
Dim derlig  As Long
    With ComboBox1
      .columncount=[c:n].columns.count
         .List = [c3:N3].Resize(2).Value
        .RemoveItem (.ListCount - 1)
    End With
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = FillList()
End Sub

Private Function FillList(Optional ByVal Plage As Range, Optional ByVal Sh As Excel.Worksheet) As Variant
    If Sh Is Nothing Then Set Sh = ActiveSheet
    If Plage Is Nothing Then Set Plage = Sh.Range("C3")

    Dim LastColumn As Long
    LastColumn = Sh.Cells.Find(what:="*", after:=Sh.Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole, _
                               searchorder:=xlByColumns, SearchDirection:=xlPrevious).Column

    Dim entireRange As Excel.Range
    Set entireRange = Plage.Resize(, LastColumn - Plage.Column)
    Dim Tabtemp As Variant
    Tabtemp = Application.Transpose(Application.Transpose(entireRange.Value))

    FillList = Tabtemp
End Function

Private Sub userform_initialize()
Dim Lcol As Range, Plage As Range, Alist As Object
  ' dernière cellule non vide de la ligne sélectionnée
    Set Lcol = Rows(3).Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
    Set Plage = Range("C" & Lcol.Row, Lcol) ' en l'occurence de C3 à F3
    Set Alist = CreateObject("System.Collections.ArrayList")
    For Each Cel In Plage
        Select Case True
            Case Cel = "":                  ' on ignore la cellule vide
            Case Alist.Contains(Cel.Text):  ' on ignore le doublon
            Case Else:  Alist.Add Cel.Text
        End Select
    Next
    Alist.Sort
    ComboBox1.List = Alist.toarray
End Sub