[PascalXLD]

Bonjour

essaies ainsi

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

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)
ligne =range('B65536').end(xlup).row + 1
Range('B' & ligne) = nom1
Range('C' & ligne) = date2
Range('D' & ligne) = nombre3
Range('E' & ligne) = lettres4

End Sub