VBA : Date - jours - Week-end

Bonjour,

J'importe un planning dans mon fichier xlsm

dans ce planning j'ai des dates pour l'année (sur une seul rangée)

J'arrive à récupérer la date du jour et récupérer quelques infos sur la colonne en question (c'est mon but)

Seulement je voudrais vérifier les résultats de la veille et si c'est un week-end il devrait remonter au vendredi (journée ouvrable)

Le 6 étant un lundi je voudrais récupérer les infos du 3/12/21

Une partie de mon programme:

For X = 1 To 500
If Sheets("onglet").Cells(13, X).Value = Date Then  Sheets("Accueil").Cells(2, Y).Value = Sheets("onglet").Cells(13, X).Value: Exit 
Next

Je dois avouer que pour récupérer la veille j'ai simplement fait cellule du jour -1

Sheets("Accueil").Cells(2, Y).Value = Sheets("onglet").Cells(13, X-1).Value

Si une personne pourrait m'aider enfin si j'ai été assez clair ;)

Merci

Bonsoir,
Par formule. A adapter en VBA.
Cdlt.

Bonjour et merci

Ça ne marche pas chez moi :(

Merci pour votre aide