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.