Re,
VBA, je ne connais pas.
Mais tu peux aussi extraire une date à partir du nom des onglets
L'année dans une cellule nommée 'An'
Si les onglets ont pour nom 1, 2, 3, etc
=7*STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;2)+DATE(An;1;3)-JOURSEM(DATE(An;1;3))-5
Si le nom des onglets est Sem1 ou Sem01, etc
=7*STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+4;2)+DATE(An;1;3)-JOURSEM(DATE(An;1;3))-5
Si le nom des onglets est Semaine1 ou Semaine01, etc
=7*STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+8;2)+DATE(An;1;3)-JOURSEM(DATE(An;1;3))-5