Bonjour le fil, bonjour le forum,
Une proposition VBA :
Sub Macro1()
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
TV = Range("C11:D250") 'définit le tableau de valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les ligne I du tableau des valeur TV
Select Case TV(I, 1) 'agit en fonction de la donnée ligne I colonne 1 (=> colonne C)
Case 0 To 500 'cas
TV(I, 2) = 70 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 501 To 1000 'cas
TV(I, 2) = 60 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 1001 To 2500 'cas
TV(I, 2) = 50 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 2501 To 5000 'cas
TV(I, 2) = 40 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 5001 To 10000 'cas
TV(I, 2) = 30 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 10001 To 15000 'cas
TV(I, 2) = 20 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case 15001 To 20000 'cas
TV(I, 2) = 10 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
Case Is > 20000 'cas
TV(I, 2) = 0 'définit la donnée ligne I colonne 2 de TV (=> colonne D)
End Select 'fin de l'action en fonction de la donnée ligne I colonne 1 (=> colonne C)
Next I 'prochaine ligne de la boucle
Range("C11").Resize(UBound(TV, 1), 2).Value = TV 'renvoie le tableau TV dans C11 redimensionnée
End Sub