Public WithEvents CB As MSForms.CommandButton
Private Sub CB_Click()
Dim n As Variant, i%
With Feuil1 'CodeName de la feuille
n = Application.Match(CB.Caption, .[A:A], 0)
If Not IsError(n) Then For i = 1 To 3: UserForm5("TextBox" & i) = .Cells(n, i): Next
End With
UserForm5.Show
End Sub