Macro - Envoi le corps d'uen feuille par Outlook

[ssassam]

Bonjour tout le monde

Svp j'ai besoin d'aide , j'ai un code qui permet d'envoyer le corp d'une feuille excel par message Outlook , mais je veux changer la feuille active par une feuille spécifique sur mon classeur j'utilise :

Sheets("tab").Range("A1", "E18").Select


Mais ca ne marche pas !

Voila mon code qui marche trés bien pour la feuille active , je compte sur votre aide et merci d'avance.

Sub envoie_une_page()

ActiveSheet.Range("A1", "E18").Select

ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
   
      .Introduction = " Bonjour," & vbCrLf & vbCrLf & " Suite à votre demande, veuillez trouver ci-joint  le chiffre d'affaire et commission au cours de  l'exercice 2012." & vbCrLf & vbCrLf & "Nous restons bien entendu à votre disposition pour tout renseignement complémentaire." & vbCrLf & vbCrLf & "Cordialement"
      
      .Item.Subject = "Détail - CA & Cion  2012"
      .Item.to = Range("D1")
      .Item.send
      
   End With
   

End Sub