Private Sub CommandButton1_Click()
Dim DerLigne As Long, x
Dim Ws As Worksheet
For Each Ws In Sheets(Array("Signalements", "Controle"))
DerLigne = Ws.Range("A65536").End(xlUp).Row + 1
Ws.Range("A" & DerLigne) = TextBox3.Value
Ws.Range("B" & DerLigne) = TextBox2.Value
Ws.Range("C" & DerLigne) = TextBox1.Value
Ws.Range("E" & DerLigne) = Format(TextBox4, "000")
Ws.Range("F" & DerLigne) = Format(TextBox9, "00 00")
Ws.Range("G" & DerLigne) = Format(Application.Index(Sheets("Remisage").Range("B6:B109"), Application.Match(CDbl(TextBox9.Value), Sheets("Remisage").Range("A6:A109"), 0)), "00 00")
Next
TextBox4.Value = ""
TextBox9.Value = ""
TextBox4.SetFocus
TextBox9.SetFocus
End Sub