Salut à tous

J'ai écris le code pour une fonction permettant d'imprimer des graphiques selon des critères, mais au moment de l'utiliser j'ai une erreur de compilation "next sans for".
J'ai essayé de bouger le next et le for mais ça ne fonctionne pas.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub imprimpenal_Click()
 
Dim continu As Boolean
continu = True
If borneInfpenal.Value > borneSuppenal.Value Then continu = False
 
If continu Then
    Windows("graphPenalités v2.xls").Activate
 
Dim nbjourpenal As Integer
Dim i As Integer
nbjourpenal = getnbjourpenal(Sheets("INDEX").Combo_moispenal.Value)
 
Dim Numero_Ligne_Visible As Integer
For i = borneInfpenal.Value To borneSuppenal.Value
           Sheets("PENALITES").Range("A3") = getvalmoispenal() & "/" & i & "/" & getvalAnneepenal() & " 5:59"
Range("B6:F1446").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("J1:K2"), Unique:=False   ''on filtre
 Numero_Ligne_Visible = Range("B7:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Row  ''donne le n° de la ligne visible sinon donne 6 le n° de la ligne d'étiquette de la liste de données
If Numero_Ligne_Visible <> 6 Then
        ActiveSheet.ShowAllData  '' on défiltre c'est-à-dire on affiche tout
        Sheets("GRAPH PENALITES").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1  
 
Next i
 
 
Else
 
    MsgBox "Borne Inf > Borne Sup !"
 
End If
Sheets("INDEX").Select
 
End Sub
Pourriez-vous me dire d'où ça vient ?

Merci d'avance