Bonsoir à vous

J'ai un bout de code qui me copie une plage de cellule, puis ouvre outlook, j'aimerais que le collage ce fasse automatiquement sans que que je fasse Ctrl+v
Je bug, merci d'avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub email()
Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim olFormatHTML As String
    Sheets(5).Select
    Range("B1:F24").Copy
 
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     strbody = ""
    On Error Resume Next
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = ""
            .BodyFormat = olFormatHTML
          .HTMLBody = ""
 
            .Display
        End With
            On Error GoTo 0
 
        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub