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...........
For Each Ctrl In Me.Controls
' Si la propriété Tag est documentée
If Ctrl.Tag <> "" Then
' Si c'est une textbox ou une combo box
If TypeOf Ctrl Is MSForms.TextBox Then
Ligne = Sheets("STOCK").Range("A65536").End(xlUp).Row
Colonne = CByte(Split(Ctrl.Tag, "-")(0)) - 4
Ctrl.ControlTipText = " En stock-" & Sheets("STOCK").Cells(Ligne, Colonne)
' si c'est un label
End If
End If
Next