Bonjour Regis,
J'ai apporté 2 modifications :
Dans le vbs, j'ai ajouté le nom du module dans l'appel à la macro :
xlApp.Run "General.AlerteSuiviPersonnel" 'GVS...
Dans la macro, j'ai ajouté un .activate pour s'assurer que la feuille active est bien la feuille "Menu" :
Sub AlerteSuiviPersonnel()
Application.ScreenUpdating = False
With Feuil6
.Activate 'GVS...
If Range("M2").DisplayFormat.Interior.Color = RGB(255, 0, 0) Then
Call EnvoiMail
End If
End With
Application.ScreenUpdating = True
End Sub
Chez moi, cela fonctionne et je reçois qu'un seul mail.