voici le code complet
merci
Private Sub CommandButton1_Click() 'bouron 'Ok'
1 Sheets('calendriers').Select
Dim Li As Integer 'déclare la variable Li
Li = Cells(ComboBox1.List(ComboBox1.ListIndex, 1), 1).Row 'définit la variable Li
'remplit les cellules de la date désignées
Cells(Li, 2).Value = ComboBox2.Value 'Météo
'jour / nuit
If OptionButton1.Value = True Then
Cells(Li, 3).Value = 'Jour'
Else
Cells(Li, 3).Value = 'Nuit'
End If
Cells(Li, 4).Value = TextBox1.Value 'Poids
Cells(Li, 5).Value = TextBox2.Value 'Pouls au repos
Cells(Li, 6).Value = TextBox3.Value 'Observations
Cells(Li, 7).Value = ComboBox3.Value 'Type de Séance
Cells(Li, 8).Value = TextBox5.Value 'Durée de la séance
If TextBox5.Value = Format(TextBox5, 'hh:mm') Then GoTo 5 Else msg = MsgBox('Veuillez entrer un format de temps valide (HH:MM)', vbCritical, 'Erreur format de temps'): UserForm1.Hide ': UserForm1.Show
5 Cells(Li, 9).Value = ComboBox4.Value 'État de Forme
Cells(Li, 10).Value = TextBox4.Value 'Distance
Cells(Li, 11).Value = TextBox6.Value 'durée totale
If TextBox6.Value = Format(TextBox6, 'hh:mm') Then GoTo 10 Else msg = MsgBox('Veuillez entrer un format de temps valide (HH:MM)', vbCritical, 'Erreur format de temps'): UserForm1.Hide ': UserForm1.Show
10 Cells(Li, 12).Value = ComboBox5.Value 'Chaussures
Unload Me 'vide et ferme l'UserForm
Sheets('calendriers').Select
End Sub