Aide sur Macro excel evennementielle

Bonjour, à tous !
Comme pas mal de monde j'ai un petit souci de syntaxe. Je suis en train d' essayer de faire une macro pour qu'a un jour donné (le Vendredi) a l'ouverture du classeur excel me propose d'imprimer telle ou telle feuille.Cela fonctionne mais nécéssite une petite amélioration :
Le classeur contient une 15 de feuilles Je suis oblige d'ouvrir une feuille par défaut (Di pair) dans laquelle j'ai place une formule WeekDay;
Le problème c'est que ce n'est pas forcément la feuille que les opérateurs utilisent et ca les perturbent qu'une autre feuille soit ouverte par défaut
La classe serait que je n'ai pas à ouvrir la feuille Di pair mais de laisser la feuille affichée à la dernière fermeture du classeur et que VBa détermine tout seul si je suis vendredi
Or je sais que la fonction WeekDay(Date,FirstDayOfWeek=vbMonday) existe dans VBA mais je n'arrive pas à l'utilisée

D'avance merci à tous!
Dom

Sub Auto_Open() ' déclanchement à l'ouverture du classeur

Sheets("Di pair").Select
If Range("U11") = 6 Then ' Condition que joursemaine = vendredi


If Weekday = 6 Then
msg = "Voulez-vous imprimer la feuille d'absence de la semaine paire ?"
confirmation = MsgBox(msg, vbYesNo + vbExclamation, "Nous sommes vendredi, vous devez afficher le planning des absences")

Else
Exit Sub
End If

If confirmation = vbYes Then
Sheets("Abs pair").PrintOut Copies:=1
Exit Sub
End If

If confirmation = vbNo Then
msg = "Voulez-vous imprimer la feuille d'absence de la semaine impaire ?"
confirmation = MsgBox(msg, vbYesNo + vbExclamation, "Nous sommes vendredi, vous devez afficher le planning des absences")
End If

If confirmation = vbYes Then
Sheets("Abs imp").PrintOut Copies:=1
End If
End Sub