Envoi mail : Run Time Error 1004

Bonjour,

J'ai un code VBA pour l'envoi de mail mais j'ai une erreur : Run Time 1004 un time error 1004 select method of range class failed

J'ai mis le script dans un module

Sub Send_Email_New()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Rapport Mail New Issue")

Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("A1:J26").Select

With Selection.Parent.MailEnvelope.Item
.to = sh.Range("N11").Value
.Subject = sh.Range("N13").Value
.Send
End With

End Sub

Merci pour votre aide

bonjour,

une proposition de correction

Sub Send_Email_New()

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Rapport Mail New Issue")

    Dim lr As Integer
    lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

    sh.Select 'd'abord sélectionner la feuille

    'Range("A1:J26").select 'puis la plage ici plage statitique A1:J26
' ou ce que je pense avoir compris de l'intention sur base du début du code
    Range("A1:J" & lr).Select 'puis la plage ici plage dynamique en fonction du nombre de lignes en colonne A

    With Selection.Parent.MailEnvelope.Item
        .to = sh.Range("N11").Value
        .Subject = sh.Range("N13").Value
        .Send
    End With

End Sub

Bonjour H2SO4,

Ca marche Nickel

Merci beaucoup