Private Sub CommandButton1_Click()
Dim Plage As Range
Dim L As Integer
Dim D As Integer
Sheets("DATA Qui").Select
If MsgBox("Confirmez-vous cette saisie ?", vbYesNo, "CONFIRMEZ !") = vbNo Then Exit Sub
L = Sheets("DATA Qui").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & L).Value = TextBox5.Text
Range("B" & L).Value = TextBox1.Text
Range("C" & L).Value = TextBox2.Text
Range("D" & L).Value = ComboBox1.Text
Range("E" & L).Value = TextBox3.Text
Range("F" & L).Value = TextBox4.Text
Range("G" & L).Value = TextBox7.Text
Range("H" & L).Value = TextBox6.Text
ln = fs.Range("B:B").Find(ComboBox1, lookat:=xlWhole).Row
fs.Range("G" & ln) = 0
fs.Range("F" & ln) = TextBox4.Text
Set Plage = DefPlage(Sheets("DATA Qui"), 2, 1)
Plage.Sort Plage(1, 2), xlAscending
MsgBox "Votre saisie a été enregistrée"
Unload UserForm2
UserForm2.Show
End Sub
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
On Error GoTo Fin
With Fe
Set DefPlage = .Range(.Cells(L, C), _
.Cells(.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
Exit Function
Fin:
Set DefPlage = Nothing
End Function