Je n'arrive pas a étendre ma macro

Bonjour 

je te conseille la lecture de la doc concernant les boucle for.

Il sera sage de sortir cette ligne

Set OlApp = CreateObject("Outlook.application")

De la boucle, ça évitera d'initialiser "50" instances de d'outlook alors qu'une suffit

Bonjour 

Pour tes prochains posts, merci d'utiliser la coloration syntaxique comme décrit là https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

De plus, l'indentation permet de faciliter la lecture, donc le développement et surtout le déboggage.

Je t'ai conseillé de sortir la création de l'objet outlook de la boucle, yg_be (que je salue) l'a fait dans ses exemples.

Mais toi non, du coup du lances 305 instances d'outlook en toile de fond, ça sature la RAM et prend un temps beaucoup plus important que nécessaire.

Dans ces exemples, yg_be a aussi sorti l'assignation du destinataire de la boucle, comme c'est tout le temps le même, tu crées là encore 305 variables différentes pour stocker la même chose, chargelent de RAM, perte de temps etc...

Bref de manière générale, dans une boucle, on ne fair que ce qui change

bonjour,

peut-être:

dim lg as long
  Set OlApp = CreateObject("Outlook.application")
Destinataire = ***@***
for lg = 1 to 123
If Date > cells(lg,"d") And cells(lg,"e") = "" Then
  Set M = OlApp.CreateItem(olMailItem)
  With M
    .Subject = "Alerte"
    .Body = "Il faut recommander une " & cells(lg,"b") & " pour " & cells(lg,"a")
    .Recipients.Add Destinataire
    .Send
  End With
  cells(lg,"e") = "X"
End If
next lg

Voici mon code final qui fonctionne

Sub Auto_Open()
Dim M As Object, OlApp As Object, Destinataire As String, n As Integer
n = 1
Do While n < 305
If Date > Range("I" & n) And Range("J" & n) = "" Then
Destinataire = ***@***
Set OlApp = CreateObject("Outlook.application")
Set M = OlApp.CreateItem(olMailItem)
With M
.Subject = "Alerte"
.Body = "Il faut recommander une " & Range("C" & n) & " pour " & Range("F" & n)
.Recipients.Add Destinataire
.Send
End With
Range("J" & n) = "X"
End If
n = n + 1
Loop
End Sub