Erreur Bloc IF

Private Sub CommandButton3_Click()

    'Condition pour Results
    '-----------------------------------------------------------------------------------------------------------------------------------------
    If UserForm1.txtExcelDatasheet.Value <> "" Then

    'Condition pour Results
    '-----------------------------------------------------------------------------------------------------------------------------------------
    If UserForm1.Results.Value = "Screening" Then
     
    'Condition pour number of stream(s)
    '-----------------------------------------------------------------------------------------------------------------------------------------
    If UserForm1.CheckBox1.Value = True And UserForm1.CheckBox2.Value = False And UserForm1.CheckBox3.Value = False And UserForm1.CheckBox4.Value = False And UserForm1.CheckBox5.Value = False And UserForm1.CheckBox6.Value = False Then
    
    'Appel de macro "Emails_Screening"
    '-----------------------------------------------------------------------------------------------------------------------------------------
    Call Emails_Screening
    
    
    
    If UserForm1.Results.Value = "Written exam" Then
    
    If UserForm1.CheckBox1.Value = True And UserForm1.CheckBox2.Value = False And UserForm1.CheckBox3.Value = False And UserForm1.CheckBox4.Value = False And UserForm1.CheckBox5.Value = False And UserForm1.CheckBox6.Value = False Then
    
    'Appel de macro "Emails_Written_Exam"
    '-----------------------------------------------------------------------------------------------------------------------------------------
    Call Emails_Written_Exam
      
    End If
 
    Else
    MsgBox ("Cette partie est en cours de développement / This section is under development")
    End If
    Else
    MsgBox ("Cette partie est en cours de développement / This section is under development")
    End If
    Else
    MsgBox ("Merci de bien choisie votre gabarit / Thank you for your well chosen template")
    End If
End Sub