Private Sub CmdModifications_Click()
On Error Resume next
With ActiveSheet.Range("a2:a65000")
Set cel = .Find(TxtID, , xlValues)
If Not cel Is Nothing Then
For Each ctrl In Me.Controls
col = Val(ctrl.Tag)
If col > 0 Then
cel.Offset(0, col - 1) = ctrl
End If
cel.Offset(0, 0) = Format(cel.Offset(0, 0), "0")
cel.Offset(0, 9) = Format(TextBox6, "0")
cel.Offset(0, 10) = Format(TextBox7, "0")
cel.Offset(0, 11) = Format(TextBox8, "### €")
cel.Offset(0, 12) = Format(TextBox9, "### €")
Next ctrl
End If
End With
For k = 2 To 9
Controls("Textbox" & k) = ""
Next k
ComboBox2 = ""
ComboBox3 = ""
End Sub