Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ind As Byte, Lpc As Long, Tarif As Byte, Tpsr As Double, Coul, TempRoul
Coul = Array(30, 30, 45, 60, 75, 90, 105, 120, 135)
Tarif = Range("B2")
' Si Tarif=0 ou Tarif>2 alors effacement de B2 et fin de la macro
If Tarif = 0 Or Tarif > 2 Then Range("B2") = "": Exit Sub
If Tarif = 1 Then TempRoul = Array(45, 40, 37.5, 35, 32.5, 30, 27.5, 25, 22.2)
If Tarif = 2 Then TempRoul = Array(58, 58, 55, 51, 48, 45, 38, 35, 32)
Ind = Range("B1")
Lpc = Range("G2")
If Ind <= 8 Then
'selon le nombre de couleurs saisies en b1, on va déterminer un temps de calage
Range("A4") = Coul(Ind)
'selon le nombre de couleurs saisies en b1 et le code du tarif saisie en b2 on va
'déterminer un temps de roulage
Tpsr = TempRoul(Ind)
Range("B4") = Application.Max(Lpc / TempRoul(Ind), 15)
Else
MsgBox ("Vous devez saisir un nombre de couleurs compris entre 0 et 8"), vbCritical
End If
End Sub