Modification de code

BONJOUR
je souhaiterais savoir comment faire pour remplacer le code suivant

Code:

---

With Worksheets("AR-Base")

---

par avec feuille active


merci
cris

Code:

---

With ActiveSheet

---

tout simplement

merci beaucoup dom
cris