Erreur compilations VBA

Bonjour à tous,

Je débute dans la programmation VBA et j'ai un message d'erreur "erreur de compilation bloc if sans end if" qui m'empêche d'écécuter ma macro..

Pourriez-vous m'apporter votre aide si possible svp?

merci d'avance

Bonjour,

une correction

une instruction if qui se baladait entre end sub et sub

2 instructions end if manquantes

Private Sub Userform_Initialize()    'Propose des listes déroulantes pour les ComboBox

    Me.TextBoxdate.Value = Format(Now, "dd/mm/yyyy")

    ' Onglet ACR :

    'Mettre les choix dans les COMBOBOX

    ComboBox12.List() = Array("OUI", "NON")

    ComboBox13Colis1.List() = Array("OUI", "NON")
    ComboBox14Colis1.List() = Array("OUI", "NON")
    ComboBox15Colis1.List() = Array("OUI", "NON")
    ComboBox16Colis1.List() = Array("OUI", "NON")
    ComboBox17Colis1.List() = Array("OUI", "NON")
    ComboBox18Colis1.List() = Array("OUI", "NON")

End Sub

Private Sub CommandButton1_Click()    'Valider le formulaire

    Dim a, L As Integer

    L = Sheets("BDD").Range("A3").Value

    If textboxoperateur = "" Or TextBoxcodeoperation = "" Or ComboBoxentrepot = "" Or TextBoxfournisseur = "" Or TextBoxdate = "" Or ComboBox12 = "" Or ComboBox13Colis1 = "" Or ComboBox13Colis2 = "" Or ComboBox13Colis3 = "" Or ComboBox13Colis4 = "" Or ComboBox13Colis5 = "" Or ComboBox13Colis6 = "" Or ComboBox13Colis7 = "" Or ComboBox13Colis8 = "" Or ComboBox13Colis9 = "" Or ComboBox13Colis10 = "" Or ComboBox14Colis1 = "" Or ComboBox14Colis2 = "" Or ComboBox14Colis3 = "" Or ComboBox14Colis4 = "" Or ComboBox14Colis5 = "" Or ComboBox14Colis6 = "" Or ComboBox14Colis7 = "" Or ComboBox14Colis8 = "" Or ComboBox14Colis9 = "" Or ComboBox14Colis10 = "" Or ComboBox15Colis1 = "" Then
        MsgBox ("Toutes les informations ne sont pas renseignées")

    Else
        If TextBoxNOM = "" Then
            MsgBox ("Toutes les informations ne sont pas renseignées")
        Else

            ' Infos sur le contrôle
            Sheets("BDD").Range("A" & L).Value = TextBoxcodeoperation
            Sheets("BDD").Range("E" & L).Value = ComboBoxopérateur
            Sheets("BDD").Range("G" & L).Value = TextBoxfournisseur
            Sheets("BDD").Range("T" & L).Value = TextBoxdate

            'Points de contrôle 1.2
            Sheets("BDD").Range("W" & L).Value = ComboBox12
            Sheets("BDD").Range("X" & L).Value = TextBoxC12

            'Points de contrôle 1.3
            Sheets("BDD").Range("Y" & L).Value = ComboBox13Colis1
            Sheets("BDD").Range("AI" & L).Value = TextBoxC13

            'Points de contrôle 1.4
            Sheets("BDD").Range("AJ" & L).Value = ComboBox14Colis1
            Sheets("BDD").Range("AT" & L).Value = TextBoxC14

            'Points de contrôle 1.5
            Sheets("BDD").Range("AU" & L).Value = ComboBox15Colis1
            Sheets("BDD").Range("BE" & L).Value = TextBoxC15

            'Points de contrôle 1.6
            Sheets("BDD").Range("BF" & L).Value = ComboBox16Colis1
            Sheets("BDD").Range("BP" & L).Value = TextBoxC16

            'Points de contrôle 1.7
            Sheets("BDD").Range("BQ" & L).Value = ComboBox17Colis1
            Sheets("BDD").Range("CA" & L).Value = TextBoxC17

            'Points de contrôle 1.8
            Sheets("BDD").Range("CB" & L).Value = ComboBox18Colis1
            Sheets("BDD").Range("CL" & L).Value = TextBoxC18

            'Remarques
            Sheets("BDD").Range("R" & L).Value = TextBoxremarques
            Sheets("BDD").Range("EN" & L).Value = TextBoxNOM

            Unload UserForm1    'pour fermer la fenêtre "formualaire" automatiquement
        End If
    End If

End Sub

merci beaucoup !