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 :)