Pas de bug, mais pas d'impression non plus avec cette macro:
sauriez-vous où se situe le problème ?
Code:
Sub ImprimerFiches()
' Imprime les onglets à partir du 4ième
'
Dim p As Integer
For p = 4 To Worksheets.Count
Sheets(p).Select
Sheets(p).Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next p
End Sub