Affichage textbox en cliquant sur une cellule

Private Sub UserForm_Activate()
 For i = 1 To 4
 Me("TextBox" & i) = Cells(ActiveCell.Row, i + 1)
 Next i
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 2 And Target.Count = 1 Then
   If Target <> "" Then
  
     répertoireImage = ThisWorkbook.Path
     NomImage = Target
     If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
       UserForm3.Image1.PictureSizeMode = fmPictureSizeModeStretch
       UserForm3.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
       For i = 1 To 4
         UserForm3.Controls("textbox" & i) = Target.Offset(, i - 1)
       Next i
       UserForm3.Show
     End If
   End If
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([a2:A1000], Target) Is Nothing And Target.Count = 1 Then
   UserForm1.ComboBox1 = Target
   UserForm1.Show
  End If
End Sub