Option Explicit
Private WithEvents CA As ControlsAssociés, PlgTablo As Range, TVL(), LCou As Long
Private Sub UserForm_Initialize()
Set CA = Création.ControlsAssociés
CA.Add Me.TextBox1, 1
CA.Add Me.Image1, 2, "C:\Users\Luck\Pictures"
Set PlgTablo = Feuil1.[B3:C10]
ReDim TVL(1 To 1, 1 To 2)
End Sub
Private Sub CA_Change(ByVal CAM As CLsCAs.CAsso)
If CAM.Ctl Is Me.TextBox1 Then
LCou = CAM.Valeur
TVL = PlgTablo.Rows(LCou).Value
CA.ValeursDepuis TVL
Else
CA.ValeursVers TVL
PlgTablo.Rows(LCou).Value = TVL
End If
End Sub