[XL-2000] Formule avec conditions

Bonjour,
plutot que d'appliquer ce code pour chaque cellule, je voudrais le faire juste à la premiere pour ensuite "étirer vers le bas"
Quelqu'un pourrait-il me dire comment mettre plusieurs conditions dans une formule pour retranscrire le code suivant dans une seule formule:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ts = 15    
k = 0
Do While Not (IsEmpty(.Cells(34 + k, 1)))
 
   conso_com = .Cells(34 + k, a).Value
   tr = .Range("B" & 34 + k).Value
   tn = .Range("C" & 34 + k).Value
   grd = .Cells(34 + k, 4).Value
 
   If tr < ts And tn < ts Then
       .Cells(34 + k, a + 1).Value = conso_com * (1 - grd * (tn - tr) / 100)
   ElseIf tr < ts And tn >= ts Then
       .Cells(34 + k, a + 1).Value = conso_com * (1 - grd * (ts - tr) / 100)
   ElseIf tn < ts And tr >= ts Then
       .Cells(24 + k, a + 1).Value = conso_com * (1 - grd * (tn - ts) / 100)
   ElseIf tn >= ts And tr >= ts Then
       .Cells(24 + k, a + 1).Value = conso_
   End 
   k = k + 1
Loop

Merci de votre aide !