Problème avec For .... Next

Bonjour,

J'intervient pour la première fois, j'aurais besoin d'aide s'il vous plait. Je suis en stage en fait je dois mettre en place une saisie automatique des performances fournisseurs. Je suis un débutant en vba c'est pourquoi je bloque avec l'ittération suivante. impossible de faire passer le code pourriez vous me dire où est l'erreur. Merci d'avance.

'Ventilation des réception en fonction de leurs dates, promise date et received date
For i = 1 To nbre
'Cas des avances
If Month(wsS.Cells(i + 1, 12).Value) > j And wsS.Cells(i + 1, 12).Value - wsS.Cells(i + 1, 16).Value > 7 Then
wsA.Rows(wsA.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
'Cas des retards
If (Year(wsS.Cells(i + 1, 12).Value) < k Or (Month(wsS.Cells(i + 1, 12).Value) < j And Year(wsS.Cells(i + 1, 12).Value = k))) And wsS.Cells(i + 1, 16).Value - wsS.Cells(i + 1, 12).Value > 4 Then
wsA.Rows(wsR.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
Next i

Message d'erreur. Next sans for