XL 2013 formulaire

Private Sub CommandButton1_Click()
Dim newLine As Long
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
    With Sheets("Signalement")
        newLine = 4 + .ListObjects("Tableau1").ListRows.Count
        newNum = Application.Max(.[Tableau1[N°SAT]]) + 1
        .Cells(newLine, 1) = newNum
        .Cells(newLine, 2) = TextBox1.Value
        .Cells(newLine, 3) = TextBox2.Value
        .Cells(newLine, 4) = TextBox3.Value
        .Cells(newLine, 5) = TextBox4.Value
        .Cells(newLine, 6) = TextBox5.Value
        .Cells(newLine, 7) = TextBox7.Value
        .Cells(newLine, 8) = TextBox8.Value
        .Cells(newLine, 9) = ComboBox1.Value
        .Cells(newLine, 10) = TextBox6.Value
        .Cells(newLine, 11) = TextBox9.Value
    End With
End If
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    ComboBox1 = Clear
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
End Sub