RAZ automatique

Bonjour,

Le programme ci-dessous me sert à effacer des lignes dans un tableau quand j'appuis sur un bouton.
Cependant, mon tableau ne s'efface pas avec une seul clique. je suis obligé de cliquer enormement de fois.

Merci pour votre aide et voici le programme.

Dim i As Integer
Sub décochons()
'Macro enregistrée le 23/07/2008 par LE MAITRE Romain

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("b10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("c10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("d10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("e10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop

For i = 1 To 2000
Sheets("PRIX").Range("a3").Offset(i, 0).FormulaR1C1 = "FALSE"
Next i
Do While Sheets("BUDGET").Range("f10").Value <> ""
Range("b10:l10").Select
Selection.Delete Shift:=xlUp
Loop


End Sub