Bonjour,
Une petite correction :
Private Sub BtnAjout_Click()
If MsgBox("Confirmez-vous cette réservation ?", vbYesNo, "Demande de confirmation de réservation") = vbYes Then
With Worksheets("Réservation")
L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
.Cells(L, 1) = CDate(LabelDate)
.Cells(L, 2) = CboCourt
.Cells(L, 3) = CboHrDeb
.Cells(L, 4) = CboHrFin
.Cells(L, 5) = TxtNom
.Cells(L, 6) = TxtPrenom
.Cells(L, 7) = TxtTel
.Cells(L, 8) = TxtMail
.Cells(L, 9) = CboPaiement
.Cells(L, 10) = CboResa
.Cells(L, 11) = TxtCommentaires
End With
End If
End Sub
En amont, je vous conseille de sélectionner vos lignes 3 à 9 et de faire suppr car j'ai l'impression qu'il y a un caractère invisible en ligne 9 (L me renvoyait 9 avant cette manipulation).
Cdlt,