tableau de bord

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OlApp As New Outlook.Application
Dim OlMail
Dim Fichier As String

If Range("H3").Value <= 1000 Then
Application.WindowState = xlMinimized
Set OlApp = New Outlook.Application
    Set OlMail = OlApp.CreateItem(olMailItem)
 
     With OlMail
        .To = "xxxxxx.outlook.com"
       .Subject = "Commande pneux"
       .Body = "Bonjour Messieurs,"
       .Display     'Pour visualiser le mail avant de l'envoyer
       .Send        'Pour envois automatique
    End With
    Set OlMail = Nothing
    Set OlApp = Nothing
End If
End Sub