UserForm

Sub Macro2()
Dim O As Worksheet
Dim DL As Integer

Set O = Worksheets("MASTER")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
O.Sort.SortFields.Clear
O.Sort.SortFields.Add Key:=Range("A3:A" & DL) _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortTextAsNumbers
O.Sort.SortFields.Add Key:=Range("E3:E" & DL) _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With O.Sort
    .SetRange Range("A3:AA" & DL)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

'valide Nouveau/valide Modif
Private Sub CommandButton1_Click()
Dim DerLig As Integer
Dim D As Long 'déclare la variable D (Date)

D = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value)) 'définit la date D en entier long
With Worksheets("MASTER")
    If Ligne_Modif = 0 Then
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    Else
        DerLig = Ligne_Modif
    End If
        .Range("A" & DerLig).Value = D 'renvoie la date D
        .Range("A" & DerLig).NumberFormat = "dd/mm/yyyy" 'formate la date D
        .Range("C" & DerLig) = semaine(D) 'semaide de D
        .Range("D" & DerLig) = Format(D, "mmmm") 'mois de D
        .Range("B" & DerLig) = Format(D, "dddd") 'jour de D
        .Range("E" & DerLig).Value = TextBox2.Value
        .Range("F" & DerLig).Value = ComboBox1.Value
        .Range("G" & DerLig).Value = ComboBox2.Value
        .Range("H" & DerLig).Value = ComboBox3.Value
        .Range("I" & DerLig).Value = ComboBox4.Value
        .Range("J" & DerLig).Value = ComboBox11.Value
        .Range("K" & DerLig).Value = TextBox3.Value
        .Range("L" & DerLig).Value = TextBox4.Value
        .Range("M" & DerLig).Value = TextBox5.Value
        .Range("N" & DerLig).Value = ComboBox5.Value
        .Range("O" & DerLig).Value = TextBox6.Value
        .Range("P" & DerLig).Value = TextBox7.Value
        .Range("Q" & DerLig).Value = ComboBox6.Value
        .Range("R" & DerLig).Value = TextBox8.Value
        .Range("S" & DerLig).Value = TextBox9.Value
        .Range("S" & DerLig).NumberFormat = "# ##0,00"
        .Range("T" & DerLig).Value = TextBox10.Value
        .Range("T" & DerLig).NumberFormat = "# ##0,00"
        .Range("U" & DerLig).Value = TextBox11.Value
        .Range("U" & DerLig).NumberFormat = "# ##0,00"
        .Range("V" & DerLig).Value = TextBox12.Value
        .Range("V" & DerLig).NumberFormat = "# ##0,00"
        .Range("W" & DerLig).Value = ComboBox7.Value
        .Range("X" & DerLig).Value = ComboBox8.Value
        .Range("Y" & DerLig).Value = ComboBox9.Value
        .Range("Z" & DerLig).Value = ComboBox10.Value
        .Range("AA" & DerLig).Value = TextBox13.Value
End With
Unload Me
End Sub