pb macro pour descendre d'une cellule

[Fifine]

Bonjour j'ai crée un tableau excel simple dans lequel je souhaite entrer des informations diverses grace à une macro.Sur la première ligne du tableau les informations s'inscrive bien mais mon pb c'est que lorsque je veux saisir une autre ligne et que j'utilise le meme bouton mes information se supperpose à ma ligne précédemment saisie.
Donc je souhaite que lorsque j'ai une ligne de créer ma macro puisse sélectionner la ligne suivante dans mon tableau.
Voici le tableau joint que j'ai crée et la macro qui est active avec le bouton Nouvelle réservation:

Sub Bouton3_QuandClic()
Dim Titre As String
Dim nom1, date2, nombre3, lettres4, nom5 As Single

Titre = 'Saisie nouvelle réservation (étape 1/4)'
nom1 = InputBox('Nom de la salle', Titre)
Titre = 'Saisie nouvelle réservation (étape 2/4)'
date2 = InputBox('Entrer la date de réservation', Titre)
Titre = 'Saisie nouvelle réservation (étape 3/4)'
nombre3 = InputBox('Plage horaire', Titre)
Titre = 'Saisir votre nom (étape 4/4)'
lettres4 = InputBox('Entrer votre nom', Titre)

Range('B3').Offset(1, 0) = nom1
Range('C3').Offset(1, 0) = date2
Range('D3').Offset(1, 0) = nombre3
Range('E3').Offset(1, 0) = lettres4

End Sub
Merci pour votre aide

 

[@Bobby]

Fifine

Tu devrais utiliser le code ci-dessous

Range('A1').Activate
ActiveCell.End(xlDown).Activate
ActiveCell.Offset(1, 0).Value

celui te place directement sur la premiere ligne vide de ton tableau dans ton exemple tu reparts toujours de B3 et tu descends d'une ligne donc tu ecrases chaque fois ta ligne 4.

Bonne chance

 

[Fifine]

Je viens d'essayer ta solution, elle ne fonctionne pas il me signale une erreur sur la dernière ligne:
ActiveCell.Offset(1, 0).Value
pour moi après cette formule à la place de Value c'est Select qu'il faut mettre alors j'ai essayé et la ca marche mais il m'emene à la fin du tableau excel. Je pense que j'ai un pb car je ne selectionne pas mon tableau dans ma macro peut etre que ca vient de là.