Autres automatiser un fichier

Dim Mar_Gras%, Jeu_Saint%, Fete_Dieu%, Fahrtsfest%, Jeune_Genevois%, Lundi_du_Jeune_Federal%
Dim Date_Ref As Date, Num_Cible As Byte, Jour_Sem As Byte, Decal_Jour%, Mois_Ref As Byte  'valeurs

Mar_Gras = CInt(Format(Date_Dim_Paques - 47, "ddmm")) 'Calcul Mardi Gras, 47 jours avant le Dimanche de Pâques, début de la semaine grasse avant les 40 jours du Carème
Jeu_Saint = CInt(Format(Date_Dim_Paques - 3, "ddmm")) 'Calcul Jeudi Saint, jeudi précédant le Dimanche de Pâques
Fete_Dieu = CInt(Format(Date_Dim_Paques + 60, "ddmm")) 'Calcul Fête Dieu, 60 jours après le Dimanche de Pâques
'Calcul Fahrtsfest, Premier jeudi d'avril
Jour_Sem = 4: Mois_Ref = 4: Num_Cible = 1 'premier jeudi d'avril
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Fahrtsfest = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7), "ddmm")) 'Calcul Fahrtsfest, Premier jeudi d'avril
'Calcul Jeûne genevois, jeudi suivant le 1er dimanche de septembre
Jour_Sem = 7: Mois_Ref = 9: Num_Cible = 1 'premier dimanche de septembre
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Jeune_Genevois = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7) + 4, "ddmm")) 'Calcul Jeûne genevois, premier dimanche de septembre + 4 jours pour le jeudi
'Calcul Lundi du Jeûne fédéral, lundi suivant le 3e dimanche de septembre
Jour_Sem = 7: Mois_Ref = 9: Num_Cible = 3 'troisième dimanche de septembre
Date_Ref = DateSerial(Year:=Annee, Month:=Mois_Ref, Day:=1)
Decal_Jour = Jour_Sem - Weekday(Date_Ref, 2): If Decal_Jour >= 0 Then Decal_Jour = Decal_Jour - 7
Lundi_du_Jeune_Federal = CInt(Format(Date_Ref + Decal_Jour + (Num_Cible * 7) + 1, "ddmm")) 'Calcul Lundi du Jeûne fédéral, troisième dimanche de septembre + 1 jour pour le lundi