XL 2019 Charger plage de données non vides dans combobox

Private Sub Cbx_Salariés_Enter()
    Dim Tablo, Col, C
    Cbx_Salariés.Clear
    Application.ScreenUpdating = False
    With Sheets("PRIMES")
        Set Tablo = .Range("$a$4:$m$" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        Col = Application.Match(Cbx_Mois, Tablo.Rows(1), 0)
        On Error Resume Next
        Tablo.AutoFilter Field:=Col, Criteria1:=">0"
        For Each C In Tablo.Offset(1).Resize(Tablo.Rows.Count - 1).Columns(1).SpecialCells(xlCellTypeVisible).Rows
            Cbx_Salariés.AddItem C
        Next
    End With
    Tablo.AutoFilter
End Sub

Private Sub Cbx_Mois_AfterUpdate()
Dim col As Variant, tablo, i&, v, liste(), n&
Cbx_Salariés.Clear
col = Application.Match(Cbx_Mois, [BASE_MOIS], 0)
If IsError(col) Then Exit Sub
tablo = [BASE_MOIS].CurrentRegion 'matrice, plus rapide
For i = 2 To UBound(tablo)
    v = tablo(i, col + 1)
    If v <> 0 And v <> "" Then
        ReDim Preserve liste(n) 'base 0
        liste(n) = tablo(i, 1)
        n = n + 1
    End If
Next
If n Then Tri liste, 0, n - 1: Cbx_Salariés.List = liste 'liste triée
End Sub

Private Sub UserForm_Activate()
Label_Année = [ANNEE]
Cbx_Mois.List = Application.Transpose([BASE_MOIS])
Cbx_Mois.ListIndex = Month(Date) - 1
End Sub

Dim mois$, F As Worksheet, nom$, tout As Boolean 'mémorise les variables
'-----
Private Sub CommandButton1_Click() 'Imprimer la fiche
If mois = "" Then
    Set F = Sheets("Modèle fiche")
    If Cbx_Mois.ListIndex > -1 Then mois = Cbx_Mois
    If Cbx_Salariés.ListIndex > -1 Then nom = Cbx_Salariés
    F.Cells(1, 2) = Date
    F.Cells(3, 2) = mois & " " & Label_Année
End If
If mois = "" Or nom = "" Then GoTo 1
F.Cells(2, 2) = nom
With [BASE_MOIS].CurrentRegion
    F.Cells(4, 2) = .Cells(Application.Match(nom, .Columns(1), 0), Application.Match(mois, .Rows(1), 0))
End With
Cbx_Salariés = nom
F.PrintPreview 'pour tester
'F.PrintOut 'pour imprimer
1 If Not tout Then mois = ""
nom = ""
F.Columns(2).ClearContents 'RAZ
End Sub

Private Sub CommandButton2_Click() 'Imprimer tout
Dim i&
tout = True
Cbx_Salariés = ""
With Cbx_Salariés
    For i = 0 To .ListCount - 1
        nom = .List(i)
        CommandButton1_Click 'lance la macro
    Next
End With
tout = False
mois = ""
End Sub