Listbox sélection d'un élément -> select all

Bonjour

Je souhaite que dans ma list box USer form si je sélectionne le premier élément de la liste ("Select All") , tous les éléments suivants sont sélectionnés mais je n'y arrive pas et je ne sais pas ou mettre ma ligne de code dans l'userform .

Voici mon code :

 If Items.Selected(0) = True Then
    Items.MultiSelect = fmMultiSelectSingle
        For i = 1 To Me.Items.ListCount - 1
            Me.Items.Selected(i) = True
        Next i
    End If

je l'ai mis dans userform_Intialize ...

Merci d'avance