XL 2016 Utilisation ListBox & TabStrip

[GwenLG]

Bonjour,
Je demande votre aide pour un petit soucis qui me turlupine ...
J'utilise un Userform qui utilise une TabStrip.
En fonction des onglets du TabStrip la ListBox1 va prendre des valeurs différentes.
Pour afficher le premier onglets pas de soucis mais pour afficher les 2 autres j'ai un problème
Pourriez vous m'aiguillez s'il vous plaît, et je suis toujourt preneur de quelques conseil pour améliorer mes codes VBA

J'ai essayé différents code mais sans succès, là mon erreur est "argument nommé non trouvé"

Je vous remercie d'avance

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "300;80"
    ListBox1.ColumnHeads = False
    ListBox1.List() = Sheets("Data").Range("Q2:R" & Sheets("Data").Range("R10000").End(xlUp).Row).Value
End Sub

Private Sub TabStrip1_Change()
    Dim Dligne As Integer
    Dligne = Sheets("Data").Range("Q10000").End(xlUp).Row
    Select Case TabStrip1.Value
        Case Is = 0
            ListBox1.List() = Sheets("Data").Range("Q2:R" & Dligne).Value
        Case Is = 1
            ListBox1.Clear
            Me.ListBox1.AddItem Item:=Sheets("Data").Range("Q2:Q" & Dligne & "S2:S" & Dligne).Value
        Case Is = 2
            ListBox1.List() = Sheets("Data").Range("Q2:Q" & Dligne & "T2:T" & Dligne).Value
    End Select
End Sub