For Each Ctrl In RemiseStock.Controls
If Ctrl.Tag <> "" Then
If Ctrl <> "" Then
If Split(Ctrl.Tag, "-")(1) = "num" Then
If LigneDestination = 8 Then
.Cells(LigneDestination, CByte(Split(Ctrl.Tag, "-")(0))) = CDbl(Ctrl.Value)
...........Etc...........