Private Sub CommandButton1_Click() Dim R As Range, n As Byte
Set R = Feuil1.Cells(65000, 1).End(xlUp)(2)
For n = 1 To 2
If n <> 2 Then
If Me("C" & n) = "" Then
MsgBox "Saisie obligatoire", vbCritical, "Attention..."
Me("C" & n).SetFocus
Exit Sub
Else
R(1, n) = Me("C" & n)
End If
End If
Next
R(1, 1) = CDate(TJ)
R(1, 2) = Format(TJ, "dddd")
R(1, 3) = C3
R(1, 4) = C4
R(1, 5) = C9
R(1, 6) = C5
R(1, 7) = C10
R(1, 8) = C6
R(1, 9) = Format(C7, "hh:mm")
R(1, 10) = Format(C11, "hh:mm")
[Tb].Sort [A5], 1, Header:=1
ActiveWorkbook.RefreshAll
If MsgBox("... Saisir un autre rendez-vous ?", 4, "Pour continuer ...") = 7 Then End
Unload Me: Saisie.Show
End Sub