Effacer certains champs d'un userform après sauvagrde

Bonjour, Je débute en VBA et non sans douleur!!!

J'ai ce morceau de code :

'Si le formulaire est complet, on insère les valeurs sur la feuille
Dim no_ligne As Integer
Dim i
i = MsgBox("Souhaitez-vous faire une demande supplémentaire pour la même CELLULE ? ", vbYesNo, "Demande supplémentaire ")
'Ok renvois i=1, Cancel renvois i = 2, fermeture à la croix renvois i = 2
If i = vbYes Then
CommandButton_Ajouter.Caption = "Sauvegarde obligatoire"
CommandButton_Ajouter.BackColor = RGB(255, 0, 0)
CommandButton1_ENVOI.Visible = False

Sheets("Fiche").Activate
'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_compteur.Value
Cells(no_ligne, 2) = ComboBox_AGENCE.Value
Cells(no_ligne, 3) = ComboBox_EMETTEUR.Value
Cells(no_ligne, 4) = DTPicker1.Value
Cells(no_ligne, 5) = ComboBox_MOTIF.Value
Cells(no_ligne, 6) = TextBox1_DESIGNATION.Value
Cells(no_ligne, 7) = ComboBox1_FRNS.Value
Cells(no_ligne, 8) = TextBox_REF_FRNS.Value
Cells(no_ligne, 9) = TextBox_PV.Value
Cells(no_ligne, 10) = ComboBox_UV.Value
Cells(no_ligne, 11) = TextBoxPHA.Value
Cells(no_ligne, 12) = TextBoxPOIDS.Value
Cells(no_ligne, 13) = TextBoxTYPE_DIM1.Value & " = " & TextBox_VALEUR_DIM1.Value & " " & ComboBox_UNITE_DIM1.Value & " / " & TextBoxTYPE_DIM2.Value & " = " & TextBox_VALEUR_DIM2.Value & " " & ComboBox_UNITE_DIM2.Value & " / " & TextBoxTYPE_DIM3.Value & " = " & TextBox_VALEUR_DIM3.Value & " " & ComboBox_UNITE_DIM3.Value
Cells(no_ligne, 14) = ComboBox_CELLULE.Value
Sheets("Création").Activate


Else
CommandButton_Ajouter.Caption = "Sauvegarde terminée"
CommandButton_Ajouter.BackColor = RGB(0, 255, 0)
CommandButton_Ajouter.Visible = False
CommandButton1_ENVOI.Visible = True
Sheets("Fiche").Activate
'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_compteur.Value
Cells(no_ligne, 2) = ComboBox_AGENCE.Value
Cells(no_ligne, 3) = ComboBox_EMETTEUR.Value
Cells(no_ligne, 4) = DTPicker1.Value
Cells(no_ligne, 5) = ComboBox_MOTIF.Value
Cells(no_ligne, 6) = TextBox1_DESIGNATION.Value
Cells(no_ligne, 7) = ComboBox1_FRNS.Value
Cells(no_ligne, 8) = TextBox_REF_FRNS.Value
Cells(no_ligne, 9) = TextBox_PV.Value
Cells(no_ligne, 10) = ComboBox_UV.Value
Cells(no_ligne, 11) = TextBoxPHA.Value
Cells(no_ligne, 12) = TextBoxPOIDS.Value
Cells(no_ligne, 13) = TextBoxTYPE_DIM1.Value & " = " & TextBox_VALEUR_DIM1.Value & " " & ComboBox_UNITE_DIM1.Value & " / " & TextBoxTYPE_DIM2.Value & " = " & TextBox_VALEUR_DIM2.Value & " " & ComboBox_UNITE_DIM2.Value & " / " & TextBoxTYPE_DIM3.Value & " = " & TextBox_VALEUR_DIM3.Value & " " & ComboBox_UNITE_DIM3.Value
Cells(no_ligne, 14) = ComboBox_CELLULE.Value
Sheets("Création").Activate
End If

Je souhaiterai effacer certains champs du userform après les avoir renseigné dans l'onglet "fiche" lorsque que i=vbyes. Seuls les champs AGENCE, EMETTEUR et CELLULE ne doivent pas être réinitialisés. Cela fait des heures, des jours que je tente des choses et à chaque fois, cela m'efface dans l'onglet fiche, une ligne. Pouvez-vous m'aider, s'il vous plait. Merci d'avance