Réf UserForm - Fonction ou variable attendue

Bonjour,

J'ai créé une UserForm "ajouterMEP" avec le code suivant :

Private Sub AjoutMEP_Click()

If (ajouterMEP.ActiviteNewMEPComboBox.Value <> "") And (ajouterMEP.AjoutNatureMEP.Value <> "") Then
ajouterMEP.ActiviteNewMEPComboBox.Value = NewActiviteMEP
        Ligne = 3 '-- première ligne de la liste des activités
        While Sheets("Activités").Range("A" & Ligne).Value <> ajouterMEP.ActiviteNewMEPComboBox.Value
            Ligne = Ligne + 1
        Wend
        NewActiviteMEP = ajouterMEP.ActiviteNewMEPComboBox.Value
        NewDomainAct = Sheets("Activités").Range("C" & Ligne).Value
        NewNomNatureMEP = ajouterMEP.AjoutNatureMEP.Value
                     
        ajouterMEP.Hide
    Else
        reponse = MsgBox("Veuillez renseigner une activité.", vbOKOnly, "Valeur manquante")
    End If
End Sub

Private Sub AjoutNatureMEP_Change()

End Sub

Private Sub AnnulMEP_Click()

    NewActiviteDomaine = ""
    NewNomNatureMEP = ""
    NewDomainAct = ""

End Sub

Private Sub UserForm_Initialize()

    ajouterMEP.AjoutNatureMEP.Value = ""
    ajouterMEP.ActiviteNewMEPComboBox.Value = ""

End Sub

Et ma macro a ensuite ce code ci pour réaliser la tâche :

Sub ajouterMEP()
    
            
          'Ajout de la mise en production dans la feuille Suivi des MEP
               
        NewDomainAct = ""
        NewNomNatureMEP = ""
        NewActiviteMEP = ""
        
        ajouterMEP.ActiviteNewMEPComboBox.Clear
        ajouterMEP.AjoutNatureMEP.Value = ""
       
        
        Dim i As Integer
        
         i = 0
    While Not Worksheets("Activités").Cells(3 + i, 1).Value = ""
        ajouterMEP.ActiviteNewMEPComboBox.AddItem Worksheets("Activités").Cells(3 + i, 1).Value
        i = i + 1
    Wend
                
    ajouterMEP.Show
    
      'Ajout de l'activité dans la feuille Suivi des MEP
          ligneActivite = 16
    
    While Sheets("Suivi des MEP").Range("A" & ligneActivite).Value <> ""
        ligneActivite = ligneActivite + 1
    Wend
    
        Sheets("Suivi des MEP").Range("A" & ligneActivite).Value = NewActiviteMEP
        Sheets("Suivi des MEP").Range("B" & ligneActivite).Value = NewDomainAct
        Sheets("Suivi des MEP").Range("C" & ligneActivite).Value = NewNomNatureMEP
    
        
    With Sheets("Suivi des MEP").Range("A" & ligneActivite & ":" & "C" & ligneActivite)
        .Cells.HorizontalAlignment = xlLeft
        .Cells.Borders(xlDiagonalDown).LineStyle = xlNone
        .Cells.Borders(xlDiagonalUp).LineStyle = xlNone
        .Cells.Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeTop).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeRight).LineStyle = xlContinuous
        .Cells.Borders(xlInsideVertical).LineStyle = xlContinuous
        .Cells.Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Cells.Font.Name = "Arial"
        .Cells.Font.Size = 10
    End With
     
    End Sub

Les mêmes codes sont utilisés pour deux autres macros dans le même fichier qui fonctionnent très bien. Mais là, lorsque j'exécute la macro je suis bloquée dès le "ajouterMEP.ActiviteNewMEPComboBox.Clear" et une fenêtre m'affiche une erreur de compilation : fonction ou variable attendue. Sachant que j'ai bien défini toutes les variables en texte au début de la macro.

J'espère être claire dans ma demande....

D'avance merci pour votre aide,

Bonne fin de journée.