Bonjour à tous,
je ne parviens pas à terminer cette boucle

Ligne 36, Erreur "Else sans If"

J'ai bien regardé qu'il n'y ai pas plus haut un if qui traine. J'ai aussi regardé quel était le formalisme pour une telle boucle.... Est ce que quelqu'un peut me donner un coup de main ?

Merci !

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
36
37
38
39
40
41
42
43
For n = 4 To LastLig

    'If Range("G" & n) <> "" Then
   ' procA (n)
   ' End If

    If Range("H" & n) <> "" And Range("H" & n) <= Range("F" & n) Then
             
            If Month(Range("F" & n)) = 1 Then JaM = JaM + 1
             MsgBox (JaM)
            
             ElseIf Month(Range("F" & n)) = 2 Then FebM = FebM + 1
             
             ElseIf Month(Range("F" & n)) = 3 Then MaM = MaM + 1

             ElseIf Month(Range("F" & n)) = 4 Then AvM = AvM + 1
             
             ElseIf Month(Range("F" & n)) = 5 Then MayM = MayM + 1
              
             ElseIf Month(Range("F" & n)) = 6 Then JuM = JuM + 1
             
             ElseIf Month(Range("F" & n)) = 7 Then JuiM = JuiM + 1
              
             ElseIf Month(Range("F" & n)) = 8 Then AoM = AoM + 1
              
             ElseIf Month(Range("F" & n)) = 9 Then SeM = SeM + 1
             
             ElseIf Month(Range("F" & n)) = 10 Then OcM = OcM + 1
              
             ElseIf Month(Range("F" & n)) = 11 Then NoM = NoM + 1
              
             ElseIf Month(Range("F" & n)) = 12 Then DeM = DeM + 1
              Else
              End If
    Else
    End If

  '  If Range("H" & n) <> "" And Range("H" & n) > Range("F" & n) Then
   ' procC (n)
   ' End If
 
Next n