Run-Time error ?

Bonjour à tous,

Le code ci dessous fonctionne parfaitement avec un office pro 2013 mais quand je le lance sur un office 2010 j'ai l'erreur:

Run-Time error '1004' :

Method 'enveloppeVisible' of object '_Workbook' failed.

Le code :

Private Sub Commandemail_Click()

    Set Ws = Sheets("FdT")
    Set Wr = Sheets("clients")

Ws.Range("A1:K16").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, " & vbCrLf & "Société :" & " " & Wr.Range("C3") & vbCrLf & "Contact :" & " " & Wr.Range("B3") & "  " & Wr.Range("D3") & " " & Wr.Range("E3") & vbCrLf & " Téléphone Bureau :" & " " & Wr.Range("F3") & vbCrLf & "Portable :" & " " & Wr.Range("G3") & vbCrLf & "E-mail :" & " " & Wr.Range("H3") & vbCrLf & "Adresse :" & " " & Wr.Range("I3") & vbCrLf & "Code Postal :" & " " & Wr.Range("J3") & vbCrLf & "Ville :" & " " & Wr.Range("K3") & vbCrLf & "La commande matériel comporte :" & vbCrLf
    .Item.To = "john@doe.com"
    .Item.Subject = "Enregistrement Nouveau Projet : " & Wr.Range("C3")
    .Item.Send
End With
'    MsgBox = "Email envoyé" & vbOK

End Sub

Quelqu'un a une idée?

J'ai trouvé, bibliotheque pas activé donc plantage de ActiveWorkbook.EnvelopeVisible = True.

J'ai viré la ligne et tout est OK sur les version 2010 et 2013.