Clear texbox

Désolé, mais comme suis novice en VBA, ne sais pas quoi mettre dans ce bout de code pour que les deux textbox ce vident après avoir cliqué sur le "commandbotton". Merci

Private Sub CommandButton1_Click()

Dim NewLig As Long

With Sheets("BD2")

NewLig = .Cells(.Rows.Count, "F").End(xlUp).Row + 1

.Range("F" & NewLig).Value = Val(.Range("F" & NewLig - 1).Value) + 1

Set Ws = ThisWorkbook.Sheets("BD2")

Ws.Range("B65536").End(xlUp).Offset(1, 0).Value = TextBox1

Ws.Range("E65536").End(xlUp).Offset(1, 0).Value = TextBox2

End With

End Sub

Bonjour, Toze666

Je ne sais pas à quoi sert ton code, mais si tu veux vider tes deux textbox.

Avant 'End Sub', tu mets :

TextBox1=""

TextBox2=""

merci bcp