Copie ligne après ligne

Bonsoir,

Banzaï m'a superbement aidé pour ma première demande, par contre je ne comprends pas pourquoi cela ne fonctionne sur ma deuxième macro.

La copie se fait toujours sur la même ligne, malgré ma ligne de commande qui me parait bonne

Je joins un fichier, merci pour l'aide apporté.

Bonjour

Quand tu calculais le numéro de la ligne tu n'étais pas dans la bonne page

Essayes (partie de la macro)

'.........
        'Si le formulaire est complet, on insère les valeurs sur la feuille
        Dim no_ligne As Long
        With Sheets("Bdd")
          'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
          no_ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1

          'Insertion des valeurs sur la feuille
          .Cells(no_ligne, 1) = TextBox_Questions.Value
          .Cells(no_ligne, 2) = TextBox_N°Réponse.Value
          .Cells(no_ligne, 3) = TextBox_Réponse1.Value
          .Cells(no_ligne, 4) = TextBox_Réponse2.Value
          .Cells(no_ligne, 5) = TextBox_Réponse3.Value
          .Cells(no_ligne, 6) = TextBox_Réponse4.Value
        End With
        'Après insertion, on remet les valeurs initiales
'........

Bonjour et merci encore une fois, pour ta rapidité et ton travail.

Cela fonctionne comme il se doit.

Pour être encore plus sur, avant l'ouverture de mon userform je sélectionne la page souhaite.

Bonne journée a vous tous.