Amis du Forum bonjour

Je ne sais si j'ai besoin de vacances ou quoi, mais je sèche sur un problème on ne peut plus simple à mon avis.
Voici un bout de code qui ne concerne que 10 cas, mais il pourrait en concerner plusieurs autres :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro3()
Range("B11").Select
If ActiveCell.Offset(0, -1) > 30 And ActiveCell.Offset(0, -1) <= 31 Then ActiveCell.Offset(0, 0) = 6.19 + (1 * 3.186)
If ActiveCell.Offset(0, -1) > 31 And ActiveCell.Offset(0, -1) <= 32 Then ActiveCell.Offset(0, 0) = 6.19 + (2 * 3.186)
If ActiveCell.Offset(0, -1) > 32 And ActiveCell.Offset(0, -1) <= 33 Then ActiveCell.Offset(0, 0) = 6.19 + (3 * 3.186)
If ActiveCell.Offset(0, -1) > 33 And ActiveCell.Offset(0, -1) <= 34 Then ActiveCell.Offset(0, 0) = 6.19 + (4 * 3.186)
If ActiveCell.Offset(0, -1) > 34 And ActiveCell.Offset(0, -1) <= 35 Then ActiveCell.Offset(0, 0) = 6.19 + (5 * 3.186)
If ActiveCell.Offset(0, -1) > 35 And ActiveCell.Offset(0, -1) <= 36 Then ActiveCell.Offset(0, 0) = 6.19 + (6 * 3.186)
If ActiveCell.Offset(0, -1) > 36 And ActiveCell.Offset(0, -1) <= 37 Then ActiveCell.Offset(0, 0) = 6.19 + (7 * 3.186)
If ActiveCell.Offset(0, -1) > 37 And ActiveCell.Offset(0, -1) <= 38 Then ActiveCell.Offset(0, 0) = 6.19 + (8 * 3.186)
If ActiveCell.Offset(0, -1) > 38 And ActiveCell.Offset(0, -1) <= 39 Then ActiveCell.Offset(0, 0) = 6.19 + (9 * 3.186)
If ActiveCell.Offset(0, -1) > 39 And ActiveCell.Offset(0, -1) <= 40 Then ActiveCell.Offset(0, 0) = 6.19 + (10 * 3.186)
 
End Sub
J'aimerai trouver un algorithme plus rapide qui me donnerait le même résultat, mais en beaucoup moins de lignes.

Merci de votre aide