Option Explicit
Public WithEvents ObjTbo As MSForms.TextBox
Private Sub ObjTbo_Change()
Dim Li As Long, C As Byte, i As Byte, nom As String
Li = 0: C = 0
nom = Mid(ObjTbo.Name, 1, 6)
i = Mid(ObjTbo.Name, 7)
Select Case nom
Case "TboBom"
Li = Mid(ObjTbo.Tag, 1, InStr(ObjTbo.Tag, "-") - 1)
C = Mid(ObjTbo.Tag, InStr(ObjTbo.Tag, "-") + 1)
Ligne(Li, C) = ObjTbo.Value
Case "TboRef"
Li = ObjTbo.Tag
Ligne(Li, 6) = ObjTbo.Value
End Select
'MsgBox Ligne(1, i)
End Sub