boucle pour détermination de poids

Sub Macro1()
'' Macro1 Macro
' Macro enregistrée le 07/02/2008 par
'PREMIER TEST
If Range("F9").Value >= 0 And Range("F9").Value <= 50 Then Range("G9") = 1
If Range("F9").Value > 50 And Range("F9").Value <= 100 Then Range("G9") = 2
If Range("F9").Value > 100 And Range("F9").Value <= 150 Then Range("G9") = 3
'MEME TEST AVEC LA LIGNE EN DESSOUS
'UNE BOUCLE QUI INCREMENTERAIT A CHAQUE FOIS SERAIT MA SOLUTION MAIS JE NE SAIS PAS FAIRE
If Range("F10").Value >= 0 And Range("F10").Value <= 50 Then Range("G10") = 1
If Range("F10").Value > 50 And Range("F10").Value <= 100 Then Range("G10") = 2
If Range("F10").Value > 100 And Range("F10").Value <= 150 Then Range("G10") = 3

End Sub