XL 2016 rafraîchissement des données dans une combobox

Private Sub ListEditerFIS_Click()
    'FL 20170531
    Dim SearchString As String
    Dim PosCR As Long

    On Error GoTo InfoErreur
   
    Workbooks(G_WorkBookName).Sheets(ONGLET_BASE_FIS_NOM).Activate
   
    ' récupère la référence
    PosCR = InStr(1, Me.ListEditerFIS, vbTab, vbTextCompare)
    SearchString = Left(Me.ListEditerFIS, PosCR - 1)

    ' ouvre le formulaire
    IHM_EditerFIS (SearchString)
   
    Me.ListEditerFIS = ""
    'JD 20120921

    Me.ListEditerFIS.Locked = True
    Me.ListEditerFIS.ForeColor = &HFF8080
    Me.BtnDuplicateFIS.ForeColor = &HFF0000
    Me.BtnModifierFIS.ForeColor = &HFF0000
    Me.BtnCreateFIS.ForeColor = &HFF0000

Exit Sub

InfoErreur:
        MsgBox "Erreur N°: " & Err.Number & vbCrLf & Err.Description & vbCrLf, vbCritical, "Type erreur"

End Sub

Private Sub UserForm_Activate()

    Dim wbkSrcFIS As Workbook

    Dim wsSrcFIS As Worksheet

    Dim i As Integer

    On Error GoTo InfoErreur

    Set wbkSrcFIS = ActiveWorkbook
    Set wsSrcFIS = wbkSrcFIS.Worksheets(ONGLET_BASE_FIS_NOM)

'Désactiver la gestion des évènements
    Application.EnableEvents = False

    ListEditerFIS.Clear
    ListImprimerFIS.Clear

    'initialisation listes déroulantes des FIS pour modif et impression

        For i = getLigneDerniereCellule(wsSrcFIS) To PREMIERE_LIGNE_VIDE_BASE_FIS Step -1
        'liste pour édition
             ListEditerFIS.AddItem _
            (wbkSrcFIS.Worksheets(ONGLET_BASE_FIS_NOM).Cells(i, COL_TYPE_REF_FIS)) _
            & vbTab & _
            (wbkSrcFIS.Worksheets(ONGLET_BASE_FIS_NOM).Cells(i, COL_TITRE_FIS))
        'liste pour impression
            ListImprimerFIS.AddItem _
            (wbkSrcFIS.Worksheets(ONGLET_BASE_FIS_NOM).Cells(i, COL_TYPE_REF_FIS)) _
            & vbTab & _
            (wbkSrcFIS.Worksheets(ONGLET_BASE_FIS_NOM).Cells(i, COL_TITRE_FIS))
        Next i

    'Activer la gestion des évènements
    Application.EnableEvents = True

Exit Sub

InfoErreur:
        MsgBox "Erreur N°: " & Err.Number & vbCrLf & Err.Description & vbCrLf, vbCritical, "Type erreur"


    'Activer la gestion des évènements
    Application.EnableEvents = True

End Sub