Dim Trouve en tant que booléen
Dim i en tant que entier
Dim indFeuille en tant que entier

Trouve = faux
i = 2

Tant que la cellule(i, 2) <> ‘’ dans la feuilles Listes faire
  indFeuille = 0
  Tant que (non Trouve) et (que indFeuille  <= feuille.Count) faire
    Si cellule(i, 2) = feuille.Name(indFeuille)
      Feuille.Move à l’indice de feuille i + 4
      TrouveFeuille = vrai
    Sinon
      indFeuille = indFeuille + 1
  Fin TantQue
  i = i + 1
Fin TantQue