Super !
propre, net, concis !
Par contre je ne te note "que" 8/10 pour garder une petite marge de progression :
Tu peux gagner 1 point de plus en rajoutant le n° de la semaine (cela n'est pas aussi facile que ça en a l'air, mais c'est pas si dur que ça !).
Le 2ème point en rajoutant 2 boutons ("<<" et ">>" pour naviguer par année au sein du calendrier.

C'est pas trop mal, mais ça ne fonctionne pas sous office 2000.
Moi-même je n'avais pas réussi à le faire puisque une liste de dest. dans l'adresse ne fonctionne pas.
J'ai fait d'une autre façon que je mettrai à dispos bientôt.
Je me suis permis de faire quelques modifications et anotations pour faire une procédure plus complète sans développer plus loin.
Je vous la soumets ci-dessous :

Public Sub Envoi_Mail(GROUPE As String, _
                      Optional Pièce_Jointe As String = "", _
                      Optional Sujet As String = "", _
                      Optional Corps As String = "", _
                      Optional Dest As String = "")
' FONCTION PERMETTANT D'ENVOYER UN MAIL AVEC UNE PIECE JOINTE
' Version Office 2000 !
' Explication finale :
' Cette procédure va ouvrir l'outlook du PC et va aller chercher la liste de diffusion dans cet outlook
' pour récupérer les adresses de la liste.
' Ce code ne marche que pour une version francaise.
' La constante des contacts est la suivant : "oleContact" ( merci Baddante ).

Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
' CREATION D'UN NOUVEAU MESSAGE
Set MonMessage = MonOutlook.CreateItem(0)
' DESTINATAIRE
Dim TO_Dest As String
Dim i As Integer
For i = 1 To MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Count
    If TO_Dest <> "" Then TO_Dest = TO_Dest & "; "
    TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Item(i)
Next
' DESTINATAIRE ( ENSEMBLE DE MAIL )
MonMessage.To = TO_Dest
' ici on peut rajouter un paramètre pour un destinataire en copie
' et éventuellement refaire la boucle ci-dessus pour une liste (note Christ_28)
MonMessage.CC = ""
' OBJET DU MESSAGE
MonMessage.Subject = Sujet
' LE MESSAGE
MonMessage.BODY = Corps
' AJOUT DE LA PIECE JOINTE (donner le chemin complet "x:\Rep\sous-rep\fichier.extension")
' on peut éventuellement rajouter un test de présence physique du fichier avant (note Christ_28)
If Pièce_Jointe <> "" Then MonMessage.Attachments.Add Pièce_Jointe
' ENVOI DE L'EMAIL
' MonMessage.Display (n'est pas nécessaire est doit être mis avant "send", sinon plantage (note Christ_28)
MonMessage.Send
MonOutlook.Quit
Set MonOutlook = Nothing
Set MonMessage = Nothing

End Sub