Envoi de mail automatique

Pas de soucis merci Ausecours alors j'ai fait un Call sub CreateHTMLMail mais j'ai une erreur d'imcompatibilité de type sur cette ligne

ReDim tabFin(1 To UBound(site, 1) + 2, 1 To UBound(etats, 1) + 2)

Oups,

J'ai oublié de mettre un s à sites la dernière fois que j'ai codé, j'ai corrigé les bugs de la fonction createTableau, elle est fonctionnelle maintenant.

c'est parfait merci j'aime bien comment ca fonctionne plus qu'a l'appliquer a mon fichier non anonymisé et le tour est jouer Merci !

Edit derniere question pour rajouter ta fonction if date du début il faut que je mettent quoi a la place du a1 ?

De rien!

C'est une cellule que tu dois définir dans ton fichier pour garder la dernière date d'envoi, tu peux remplacer ça par ce que tu souhaites, je te conseille de préciser la feuille du Range en utilisant Sheets("nomDeLaFeuille").Range("A1")