Problème bloc if end if

Bonjour,

J'ai un problème avec une formule IF sous VBA. En effet j'ai la macro suivante :

If Range("J13").Value > Range("J29").Value Or Range("J13").Value > Range("J25").Value Or Range("J13").Value > Range("J21").Value Or Range("J13").Value > Range("J17").Value Then
Sheets("Calcul").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = entrepot1

If Range("J17").Value > Range("J29").Value Or Range("J17").Value > Range("J25").Value Or Range("J17").Value > Range("J21").Value Or Range("J17").Value > Range("J13").Value Then
Sheets("Calcul").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = entrepot2

If Range("J21").Value > Range("J29").Value Or Range("J21").Value > Range("J25").Value Or Range("J21").Value > Range("J17").Value Or Range("J21").Value > Range("J13").Value Then
Sheets("Calcul").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = entrepot3

If Range("J25").Value > Range("J29").Value Or Range("J25").Value > Range("J21").Value Or Range("J25").Value > Range("J17").Value Or Range("J25").Value > Range("J13").Value Then
Sheets("Calcul").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = entrepot4

If Range("J29").Value > Range("J25").Value Or Range("J29").Value > Range("J21").Value Or Range("J29").Value > Range("J17").Value Or Range("J29").Value > Range("J13").Value Then
Sheets("Calcul").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = entrepot5

End If

Mon soucis est que je recois le message : pas de bloc end if, alors qu'on voit clairement qu'il y'a un end if. J'ai cherché sur google, et les réponses que j'ai trouvé préconisent de supprimer le End if ce qui ne marche pas.

Je vous remercie pour votre aide :)