Envoyer mail si date = Mercredi

Bonjour à Tous,

J'ai une nouvelle fois besoin de votre aide :

Comme expliquer dans mon titre, je souhaiterais envoyer un mail chaque mercredi (sans forcement avoir besoin d'ouvrir le classeur si possible !)

Voici le code que j'ai écris :

Private Sub CommandButton2_Click()

If weekday(4) Then

ActiveSheet.Range("A5:D50").Select ' la plage de cellules à envoyer

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = ""

.Item.To = "Hono@gmail.com"

.Item.Subject = "Non conformité "

.Item.Send

End With

Range("A1").Select

end if

End Sub

Je pense que j'ai du oublier une étape pour que cela fonctionne

Merci d'avance pour votre aide !