VBA - jour semaine

Bonjour
encore un soucis en VBA Excel
en fait je me suis planté en exposant mon problème

En B4 j’ai la formule “=DATE(Lan;A$2;$A4)”
En C4 j’ai la formule “=B4”

Lan étant le nom d’une cellule dans laquelle je rentre l’année que je souhaite
A2 contenant le numéro du mois
A4 contenant le numéro du jour

J’aimerais obtenir en vba dans ma macro quelque chose qui devrait ressembler à ça, seulement voilà ça ne fonctionne pas

If ActiveCell.Value = "(JOURSEM()=1)" Then
Range(ActiveCell.Offset(0, 7), ActiveCell.Offset(0, 15)).Select
Application.Goto reference:="Lundi"
With Selection.Copy
Sheets("feuil1").Select
ActiveSheet.Paste
End With
End If

Merci d’avance à qui pourra m’aider
A+

en gros tu veux faire quoi ?

En gros, je veux coller automatiquement mes horaires de chaque jour de la semaine en dehors des jours feriés, de congés etc …

Pour cela j’ai nommé des plages de cellules Lundi, Mardi etc … avec les horaires correspondant

Mais je n’arrive pas à lui faire reconnaître les différents jours