Imprimer feuille si

Bonjour le forum,

J'ai fais un code me permettant d'imprimer une feuille, j'y ai ajouter des bloc if car je voudrais qu'il imprime la feuille que si le nom de la feuille est diffèrent de "BaseDeDonnées". Mais il y a bug sur une ligne, merci pour votre aide.

Sub ImprimerBonLivraison()
If ActiveSheets.Name <> "BaseDeDonnée" Then
   If MsgBox("Voulez-vous supprimer la feuille active après l'impression?", vbYesNo + vbExclamation, "Demande de confirmation de suppression") = vbYes Then
     Call ImrpimeLivr
     ActiveSheet.Delete
    MsgBox " Bon de Livraison imprimer et Feuille supprimer", vbInformation, "Confirmation Impression/suppression" '....message de confirmation
   End If
Else
   If MsgBox("Confirmez-vous l'impression du Bon de Livraison?", vbYesNo + vbExclamation, "Demande de confirmation d'impression") = vbYes Then
     Call ImrpimeLivr
    MsgBox " Bon de Livraison imprimer ", vbInformation, "Confirmation Impression" '....message de confirmation
   End If
End If
End Sub

Cordialement.

Bonjour minakashi, le forum,

Peut-être un "s" de trop à Activesheet.....

Cordialement,

Bonsoir xorsankukai,

A oui merci haha. bonne soirée.