Private Sub CommandButton3_Click()
Dim nlleFeuille As String
Sheets.Add
nlleFeuille = ActiveSheet.Name
Range("a1") = Me .combox1.Value
Range("a2") = Me.TextBox1.Value
'enfin bref, tout ce que peut contenir ton usf
Sheets(nlleFeuille).PrintOut
Sheets(nlleFeuille).Delete
End Sub