Chargement d'une combobox sur plusieur feuil

Private Sub UserForm_Initialize()
  Dim Sht As Worksheet, Lig As Long
  ' Définir le nombe de colonnes de la listbox
  Me.ListBox1.ColumnCount = 4
  ' Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook
    ' Si le nom de la feuille commence par "SAS"
    If Left(Sht.Name, 3) = "SAS" Then
      ' Pour chaque ligne de 5 à 10
      For Lig = 5 To 10
        ' Ajouter les valeurs des colonnes B à E
        Me.ListBox1.AddItem Sht.Range("B" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sht.Range("C" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sht.Range("D" & Lig).Value
        Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sht.Range("E" & Lig).Value
      Next Lig
    End If
  Next Sht
End Sub

Dim x As Long
 Dim Sht As Worksheet, Col As Integer, Lig As Long
  ' Définir la colonne de recherche
  Col = Me.ComboBox1.ListIndex + 1
  ' Pour chaque feuille
  For Each Sht In ThisWorkbook.Worksheets
    ' Si le début du nom de la feuille correspond
    If Left(Sht.Name, 3) = "SAS" Then
      ' Pour chaque ling
      For x = 2 To 4
      For Lig = 2 To 10
        ' Ajouter la valeur de la colonne sélectionnée
        Me.ComboBox2.AddItem Sht.Cells(Lig, x + Col)
       
      Next Lig

  Next x
End If
Next Sht
End Sub