End IF / Bloc IF - Erreur

Bonjour,

Voici mon code de userform :

Private Sub CBAjouter_Click()

    If (AffectProjet.ConsultantComboBox.Value <> "") Then
    
        Ligne = 3 '-- première ligne de la liste des consultants
        LigneActivite = 6   'première ligne de la feuille activités
        
        While Sheets("Consultants").Range("B" & Ligne).Value & " " & Sheets("Consultants").Range("C" & Ligne).Value <> AffectProjet.ConsultantComboBox.Value
            Ligne = Ligne + 1
        Wend
        ConsultantAffectation = Sheets("Consultants").Range("A" & Ligne).Value

End if

If (AffectProjet.ActiviteComboBox.Value <> "") Then 
        While Sheets("Activités").Range("A" & LigneActivite).Value & " " & Sheets("Activités").Range("C" & LigneActivite).Value <> AffectProjet.ActiviteComboBox.Value
            Ligne = LigneActivite + 1
        Wend
        ActiviteAffectation = AffectProjet.ActiviteComboBox.Value
        ActiviteAffectationDomaine = Sheets("Activités").Range("C" & LigneActivite).Value
        AffectProjet.Hide
      
    'Else
    'reponse = MsgBox("Veuillez renseigner les 2 valeurs.", vbOKOnly, "Valeur manquante")
    
    End If
    
End Sub

A chaque fois que j'exécute la macro j'ai un message d'erreur End if sans bloc If. Et si je ne mets qu'un seul If au début, deux while / wend qui se suivent puis je termine par End If Excel plante.

Est-ce que vous auriez une idée d'où peut provenir cette erreur?

D'avance merci pour vos retours,

Justine