Ou mieux encore
Private Sub BtnENREGISTRER_Click()
Dim enreg As Integer
If [T_Particulier].Item(1, 1) <> "" Then enreg = [T_Particulier].Rows.Count + 1 Else enreg = 1
[T_Particulier].Item(enreg, 1) = TxtNumClient.Value
[T_Particulier].Item(enreg, 2) = CboCivilité.Value
[T_Particulier].Item(enreg, 3) = TxtNom.Value
[T_Particulier].Item(enreg, 4) = TxtPrenoms.Value
[T_Particulier].Item(enreg, 5) = TxtProfession.Value
[T_Particulier].Item(enreg, 6) = TxtNaissance.Value
[T_Particulier].Item(enreg, 7) = CboVille.Value
[T_Particulier].Item(enreg, 8) = TxtQuartier.Value
[T_Particulier].Item(enreg, 9) = CboCommune.Value
[T_Particulier].Item(enreg, 10) = TxtBP.Value
[T_Particulier].Item(enreg, 11) = TxtTelephone.Value
[T_Particulier].Item(enreg, 12) = TxtMail.Value
[T_Particulier].Item(enreg, 13) = CboPieceID.Value
[T_Particulier].Item(enreg, 14) = TxtNumPieceID.Value
Unload Me
FrmSaisieCltParticulier.Show
End Sub
A+ François