Erreur Next sans For

Bonjour,

Je me trouve coincé dans cette situation :

Quand j'exécute ma macro celle c-i me met un code d'erreur "NEXT sans FOR", pourtant j'ai bien vérifier mes boucles.

J'ai essayer de supprimer les boucles pour voir si elles étaient la source du problème, cependant un nouveau message s'affiche "IF sans END IF".

Est-ce mon code qui ne tient pas la route ou est ce un problème lié à autre chose, sachant que le fichier d'origine était d'un excel 2013 et que je l'ai enregistrer sous ma version 2016.

Je vous remercie pour l'attention et le temps.

Voici mon code

Il a pour but de contrôler que certaines cases dépendante sont bien remplies avant d'enregistrer le fichier sous une nouvelle base de donnée.

Sub verif()

'variables
Dim i As Integer
i = 1
Dim e As Integer
e = 1
Dim c As Integer
c = 0
Dim cp As Integer
cp = WorksheetFunction.CountA(Range("D5:I5"))

'Code produit boites
Range("D5").Select
For i = 1 To 6
    If Selection <> "" Then

        Selection.Offset(1, 0).Select

        If Selection = "" Then
            MsgBox "Veuillez compléter l'heure de début de production"
            c = c + 1
        End If

        Selection.Offset(1, 0).Select

        If Selection = "" Then
            MsgBox " Veuillez compléter l'heure de fin de production"
            c = c + 1
        End If

    Selection.Offset(-2, 1).Select

    End If
    i = i + 1

Next

 'Boucle vérif

 Range("B11").Select

 i = 10

For i = 10 To 50

    For e = 1 To 6

        If Selection <> "" Then

            Selection.Offset(1, 0).Select

            If Selection = "" Then

                MsgBox "Veuillez entrer les n° de palettes et la date de fabrication"
                c = c + 1
            End If

            Selection.Offset(1, 0).Select

            If Selection = "" Then
                MsgBox "Veuillez remplir le nombre de boites manquante"
                c = c + 1
            End If

            Selection.Offset(1, 0).Select

            If Selection = "" Then
                MsgBox "Veuillez remplir le nombre de boites abîmés"
                c = c + 1
            End If

            Selection.Offset(0, 1).Select

            If Selection = "" Then
                MsgBox "Veuillez remplir le nombre de boites sales"
                c = c + 1
            End If

            Selection.Offset(-3, 1).Select

            e = e + 1
    Next

    i = i + 10
Next

If WorksheetFunction.CountA(Range("B37:B42")) < cp Then

    MsgBox "Veuillez compléter le nombre de palettes utilisée"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("D37:D42")) < cp Then
    MsgBox "Veuillez compléter le total des boites"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("F37:F42")) < cp Then
    MsgBox "Veuillez compléter le nombre de lignes utilisées"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("H37:H42")) < cp Then
    MsgBox "Veuillez compléter le total boites"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("I37:I42")) < cp Then
    MsgBox "Veuillez compléter le total générale"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("K37:K42")) < cp Then
    MsgBox "Veuillez compléter le total boites manquante de la journée"
    c = c + 1
End If

If WorksheetFunction.CountA(Range("M37:M42")) < cp Then
    MsgBox "Veuillez compléter le total boites abîmées de la journée"
    c = c + 1
End If

If c = 0 Then
ThisWorkbook.SaveAs ("\\GBNCDATA1\tech\05-Conditionner Bière & BG\2 - Suivi prod\1.Formulaire_A_Valider\Auto-contrôle dépaléttiseur boites du " & Format(Now(), "DD-MMM-YYYY hh-mm"))
ThisWorkbook.Close
End If

End Sub

Bonjour,

            e = e + 1
        End If '<= ici il manque ce End ig
    Next
    i = i + 10
Next

A+