S.Rows(1).Insert
mesTitres = Array("DATE", "HEURE", "NOMS ET PRENOMS", "MTLE", "MVT", " OUTILS", "QTE", "MAGASIGNIER") 'à adapter
S.Range(S.Cells(1, 1), S.Cells(1, UBound(mesTitres) + 1)) = mesTitres
Unload Me
WB.PrintPreview 'impression
WB.Close False 'suppression du classeur temporaire
'///
UserForm1.Show MODAL
Application.ScreenUpdating = True
End Sub