Sub Copie()
Feuil1.[A12:H53].Copy Feuil3.[A12:H53]
Feuil3.Activate
End Sub
For Each Onglet In ThisWorkbook.Worksheets
'Si la feuille contient Livraison
If InStr(1, Onglet.Name, "Bon de livraison ") > 0 Then
'Impression du BON DE LIVRAISON
sheet(Onglet).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$49"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End If
Next