Microsoft 365 selectionner cellule via un combobox

Private Sub UserForm_Click()
Option Explicit
Private Sub CommandButton1_Click()
Dim ligne As Integer
ligne = ComboBox1.ListIndex
Range(ligne + 1 & ":" & ligne + 1).Select
End Sub
Private Sub UserForm_Initialize()
    Dim j As Integer
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
End Sub