Private Sub CommandButton2_Click()
Dim l As Long
Dim i As Integer
Dim LL As Long
If MsgBox("Etes-vous certain de vouloir MODIFIER ce dossier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
l = Me.ComboBox1.ListIndex + 2
Range("K" & l).Value = CDate(TextBox10)
Range("L" & l).Value = TextBox11
Range("M" & l).Value = TextBox12
Range("N" & l).Value = TextBox13
Range("O" & l).Value = TextBox14
Range("P" & l).Value = TextBox15
Range("Q" & l).Value = TextBox16
Range("R" & l).Value = TextBox17
Range("S" & l).Value = TextBox18
Range("T" & l).Value = TextBox19
ActiveWorkbook.Save
End Sub