Comme ca ?
.Cells(no_ligne, 1) = TextBox_N°Client.Value
.Cells(no_ligne, 2) = civilite
.Cells(no_ligne, 3) = TextBox_Nom.Value
.Cells(no_ligne, 4) = TextBox_Prenom.Value
.Cells(no_ligne, 5) = TextBox_Adresse.Value
.Cells(no_ligne, 6) = TextBox_Ville.Value...