Private Sub CommandButton1_Click()
Dim ncol%, col%, i&, lig&
ncol = 3 'nombre de colonnes à renseigner
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
For col = 1 To ncol
i = Cells(Rows.Count, col).End(xlUp).Row + 1
If i > lig Then lig = i
Next
For col = 1 To ncol
Cells(lig, col) = Me("TextBox" & col)
Me("TextBox" & col) = ""
Next
End Sub