XL 2016 résultat liste déroulante dans une cellule active - vba

Private Sub CmdOK_Click()
   'j = 1
    With ListeClients
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                'Cells(j, 4) = .List(i, 0): Cells(j, 5) = .List(i, 1)
                If Not Application.Intersect(ActiveCell, Range("D:D")) Is Nothing Then ActiveCell = .List(i, 0)
               ' .Selected(i) = False
               ' j = j + 1
            End If
        Next
    End With
    DlgChoixMutliple.Hide
End Sub

Private Sub CmdOK_Click()
    With ListeClients
        If ActiveCell.Column <> 4 Or ActiveCell.Row < 4 Or .ListIndex = -1 Then Exit Sub
        ActiveCell = .List(.ListIndex, 0)
        ActiveCell(1, 2) = .List(.ListIndex, 1)
    End With
    Unload Me
End Sub