Modification VBA simple

Bonjour à tous

un petit coup de main s'il vous plait .
j'utilise le code suivant afin de faire une liste à choix multiple .(copier coller internet) mais je ne maitrise pas se code.

j'ai juste un petit problème pour changer la cible des cellules en ligne 2 car je doit ciblé une feuille nommée "tableau2020" et les cellules de "AH3:AH2000"
pour la source en ligne 4 pas de problème car je peux choisir la feuille et la plage.

voilà j'espère avoir étais clair.
merci de temps que vous prendrez.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox1.List = Sheets("BD").Range("A2:A6").Value
    a = Split(Target, " ")
    If UBound(a) >= 0 Then
      For i = 0 To Me.ListBox1.ListCount - 1
        If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
      Next i
    End If
    Me.ListBox1.Height = 80
    Me.ListBox1.Width = 100
    Me.ListBox1.Top = Target.Top
    Me.ListBox1.Left = Target.Left + Target.Width
    Me.ListBox1.Visible = True
  Else
      Me.ListBox1.Visible = False
  End If
End Sub
Private Sub ListBox1_Change()
 For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
 Next i
 ActiveCell = Trim(temp)
End Sub

Merci

EDIT : Ajout des balises de code.