Bonsoir tu as oublié les points se référant à With ActiveWorkbook.Sheets("Liste N°de CLIENT")
no_ligne =.Range("A65536").End(xlUp).Row + 1
. 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
.Cells(no_ligne, 7) = TextBox_CodePostale.Value