XL 2016 impression du contenu d'un listbox

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

Sub bordure()

    Range("A1:H500").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Borders(xlLeft)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlTop)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.FormatConditions(1).Borders(xlBottom)
        .LineStyle = xlContinuous
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub