Faire une mutilsélection dans une base de données exel

'***************************************************************************************************************
'Ici pb : Il n'affiche que les titres des quatre premiers groupes de la liste en colonne A, pour eux c'est bon,
'mais pour les autres groupes, il affiche aussi les titres des quatre premiers groupes ??
    
[B]    'récupérer la ligne
    With ThisWorkbook.Sheets("Artistes et Albums")
        Set cellFind = .Range("A:A").Find(Me.ComboArtistes.Text, , xlValues, xlWhole)
        If Not cellFind Is Nothing Then
            firstCellAddress = cellFind.Address
            Do
                If cellFind.Offset(0, 1).Text = Me.ListAlbums.Value Then Ligne = cellFind.Row
                Set cellFind = .Range("A:A").FindNext(cellFind)
            Loop Until cellFind.Address = firstCellAddress
        End If
    End With[/B]
    If ComboAlbums <> "" Then
        ListTitres.Column = Range(Cells(Ligne, 3), Cells(Ligne, Cells(Ligne, 256).End(xlToLeft).Column)).Value
    End If
    
'***************************************************************************************************************

Private Sub ComboAlbums_Change()
    
[B]    Dim cellFind As Range
    Dim firstCellAddress As String[/B]
    Dim Photo As Variant
    Dim Ligne As Integer