Désolé.
Est ce que ces lignes permettent d'ajouter le formulaire dans la feuille "recapitulatif" ?
Private Sub btnajout_Click()
Sheets("Recapitulatif").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = txtdate.Value
ActiveCell.Offset(0, 1).Value = cboplongeur
ActiveCell.Offset(0, 2).Value = txtnumplongée
ActiveCell.Offset(0, 3).Value = cbocatégorie
ActiveCell.Offset(0, 4).Value = cboentrainement
ActiveCell.Offset(0, 5).Value = txtdurée
ActiveCell.Offset(0, 6).Value = txtprofondeur
ActiveCell.Offset(0, 7).Value = cbopalier
ActiveCell.Offset(0, 8).Value = cbodirecteur
MsgBox " La plongée a bien été enregistré dans la base de donnée", vbOKOnly + vbInformation, "Confirmation"
End Sub