[vba excel]

salut, j'ai écris une macro qui me donne tous les nombres premiers compris entre deux nombres donnés.
Seulement, pour lemoment, je suis obligé d'entrer mes deux valeurs bornes directement dans la macro.
J'aimerais pouvoir entrer ces deux valeurs en B1 et en B2 pour que la macro se mette à jour automatiquement.
Pourriez vousmedire comment faire svp?

Voici mon code:

Sub nbprem()
Range("A1").Select
i = 9000
ActiveCell.Offset((i - 2), 0).Range("A1").Select
While i <> 10000
ActiveCell.FormulaR1C1 = i
ActiveCell.Offset(1, 0).Range("A1").Select
i = i + 1
Wend
ActiveCell.FormulaR1C1 = i
ActiveCell.Offset(1, 0).Range("A1").Select
For j = 1 To 150
ActiveCell.FormulaR1C1 = 10000
ActiveCell.Offset(1, 0).Range("A1").Select
Next

' Remplit le tableau avec les nombres compris entre 2
' et la valeur voulue

Range("A1").Select

For k = 2 To Sqr(i)
a = (2 * k - 2)
ActiveCell.Offset(a, 0).Range("A1").Select
While Selection <> 10000
Selection.ClearContents
ActiveCell.Offset(k, 0).Range("A1").Select
Wend
Range("A1").Select
Next

' Supprime les nombres non premiers

While Selection <> 10000
If Selection = 0 Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Else: ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend

While Selection = 10000
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Wend
Range("A1").Select

' Nettoie le tableau
End Sub








Je sais que c'est très basique comme méthode mais je voudrais d'abord faire un truc simple et qui fonctionne complètement avant de l'améliorer.
Merci d'avance ;)


PS: j'utilise excel97