ou alors le code de ton bouton :
Private Sub CommandButton_valider_Click()
'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer
'indique dans quelle feuille j'envois les données
With Sheets("tableau")
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = .Range("A65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
.Cells(no_ligne, 1) = TextBox_dates.Value
.Cells(no_ligne, 2) = ComboBox_statut.Value
.Cells(no_ligne, 3) = ComboBox_personne.Value
.Cells(no_ligne, 4) = ComboBox_nationalité.Value
.Cells(no_ligne, 5) = ComboBox_domicile.Value
.Cells(no_ligne, 16) = TextBox_remarques.Value
End With
TextBox_dates.Value = ""
ComboBox_statut.Value = ""
ComboBox_personne.Value = ""
ComboBox_nationalité.Value = ""
ComboBox_domicile.Value = ""
TextBox_remarques.Value = ""
End Sub