Blocks if

Bonjour,

Bonjour,

dans ce code, on me dit que j'ai un Next sans For et que les else sont sans if, alors qu'ils sont placés.
Ma question est: quand on code des fonctions avec plusieurs partie if then else, comment fait-on pour passer à la ligne sans rompre la chaine if then else? Y a-t-il un endroit spécial ou lees placer?

Sub essai()
Dim j, monjour As Integer
For j = 2 To 1000
monjour = Day(Cells(j, 8))
monmois = Month(Cells(j, 8))
If monjour < 10 Then
Cells(j, 1).Value = "01/" & monmois & "-10/" & monmois
Else: If monjour < 20 Then Cells(j, 1).Value = "11/" & monmois & "-20/" & monmois Else
Select Case monmois
Case 1, 3, 5, 7, 8, 10, 12
Cells(j, 1).Value = "21/" & monmois & "-31/" & monmois
Case 4, 6, 9, 11
Cells(j, 1).Value = "21/" & monmois & "-30/" & monmois
Case 2
Cells(j, 1).Value = "21/" & monmois & "-28/" & monmois
Next j
end if
End Sub

MERCI!