operation boucle en evitant 2 feuilles

Bonjour à tous,

J'ai besoin d'une petite aide. Bon c'est pas compliqué je pense

1/ J'ai la boucle suivante et je veux que l'operation Essretrieve (autre fonction pro) ne se fasse pas sur une feuille entity (comme expliqué ds la macro) mais aussi sur une autre feuille nommée 'Result' qui se trouve en plein milieu de ma boucle.

Donc c'est la fonction Do While sheet <>'Entity' + autre feuille que je dois adapter
Comment je fais pour eviter plusieurs feuilles ds ma boucle (feuille Entity et feuille Result)

Private Sub CommandButton1_Click()
Dim sShtStart As String
Dim j

j = 1
Do While Sheets(j).Name <> 'Entity'
Sheets(j).Select
sShtStart = ActiveSheet.Name
EssRetrieve ActiveSheet.Range('Zone_Ret')
j = j + 1

Loop

Sheets('Entity').Select
Range('A1').Select
Exit Sub
End Sub

2/ une fois la macro tournée, j'ai ds la cellule a1 la formule date ='Le '&TEXTE(MAINTENANT();'jj/mm/aaa - h:mm') et je souhaite qu'une fois la macro tournée la date soit fixe comme cela si j'ouvre le fichier 2 jrs après, la date ne se met pas à jour

Avez-vous une soluce?

Merci pour votre aide


Xavier