Macro saisie sur nouvelle ligne vide

Bonjour,

Je bloque sur un sujet sur lequel j'ai déjà demandé une aide :-(

Sur le fichier en PJ, en cliquant sur le bouton 'valider' de l'onglet 'saisie' ma macro me permet d'enregistrer les infos saisies sur l'onglet 'Recap'

je souhaiterais que, à chaque nouvelle fiche validée, la saisie se fasse sur la première ligne vide de l'onglet 'Récap' et ainsi de suite

Bonjour, il n'y a rien dans votre fichier exemple ; juste une feuille sans macro et sans bouton.

en effet, ,je n'avais pas envoyé le bon fichier

Bonjour, voilà pour le bouton valider dans le module 2.

Sub VALIDER_RECAP()
' Macro valider

Dim derligne As Long
derligne = Worksheets("Récap").Range("A65536").End(xlUp).Row

Worksheets("Récap").Range("A" & derligne).Value = Range("C4").Value
Worksheets("Récap").Range("B" & derligne).Value = Range("G4").Value
Worksheets("Récap").Range("C" & derligne).Value = Range("J4").Value
Worksheets("Récap").Range("D" & derligne).Value = Range("J6").Value
Worksheets("Récap").Range("E" & derligne).Value = Range("L4").Value
Worksheets("Récap").Range("F" & derligne).Value = Range("C8").Value
Worksheets("Récap").Range("G" & derligne).Value = Range("F8").Value
Worksheets("Récap").Range("H" & derligne).Value = Range("K8").Value
Worksheets("Récap").Range("I" & derligne).Value = Range("C11").Value
Worksheets("Récap").Range("J" & derligne).Value = Range("D14").Value
Worksheets("Récap").Range("K" & derligne).Value = Range("H14").Value
Worksheets("Récap").Range("L" & derligne).Value = Range("D16").Value
Worksheets("Récap").Range("M" & derligne).Value = Range("H16").Value
Worksheets("Récap").Range("N" & derligne).Value = Range("I11").Value

End Sub

Merci mais

J'aimerais que lors ce que je saisie une deuxième fiche, les informations se positionnent sur la ligne suivante:

actuellement en saisissant les infos sur l'onglet "saisie" et en validant avec le bouton, les infos se positionnent sur la ligne N° 2 de l'onglet "Récap" mais en saisissant une nouvelle fiche sur l'onglet "Saisie" les infos écrasent la ligne N° 2 .

Je souhaiterais qu'elles se positionnent sur la ligne 2, puis nouvelle fiche sur la ligne 3 ......

Oops Désolé petite erreur de débutant j'ai oublié d'ajouter +1

derligne = Worksheets("Récap").Range("A65536").End(xlUp).Row + 1

Génial, Merci