=INDEX($2:$2;0;EQUIV(1;(SI(B3:M3<A3:L3*0,1;1;0));0)+1)
Sub trouver_annee()
'le but de la macro est de trouver l'annee ou les vente dégringolent
seuil = 0.1
For ligne_obs = 3 To 4
For i = 2 To 13
If Cells(ligne_obs, i).Value < Cells(ligne_obs, i - 1).Value * seuil Then
'écrire l'année
Cells(ligne_obs, 15).Value = Cells(2, i).Value
Exit For
End If
Next i
Next ligne_obs
End Sub