macro effaçant le contenu de cellules

Bonjour à tous
voila je fais un petit module a mon travail sous excel et je suis bloqué
je recherche une macro qui effacerait le contenu de cellules en fonction d'une valeur rentrée

ex : on rentre 526 en A1 puis on clique sur bouton supprimer
la macro doit effacer les cellules B(526+54) c'esta dire B580, C580 etccc
merci d'avance pour vos pistes

Une possibilité

Code:

---

Me.Rows(Range("A1").Value + 54).Delete

---

Une autre solution

Code:

---

1 2 3 4 5

Dim i As Long i = Range("A1").Value + 54   Range("B" & i & ":D" & i).Delete

---