Microsoft 365 Conserver le lien PDF lors du transfer d'une ligne dans Listbox

[Scorpio]

Bonjour à tous,
Comme je suis pas un champion en VBA, je m'adresse à vous, pour trouver une solution.
En fait, je transfert ligne par ligne d'une Listbox, de la feuille "BD" à la feuille "RECAP".
Et, j'aimerais conservé le lien PDF se trouvant en colonne "F", lors du transfert.
Merci de bien vouloir me donner un petit coup de pouce, je vous en remercie.
A++++

 

[job75]

Bonjour Scorpio,

Rng étant déclaré en haut du code de l'UserForm, voyez cette nouvelle macro dans le fichier joint :

Private Sub B_recup_Click()
  Application.ScreenUpdating = False
  Set f = Sheets("Recap")
  f.[A2:F1000].Delete xlUp
  With Union(Rng.Rows(0), Rng)
    .AutoFilter 1, ComboBox1 'filtre automatique
    .Copy f.[A1] 'copier-coller
    .AutoFilter
  End With
  'Somme colonne 3
  f.[C65000].End(xlUp).Offset(2) = Application.Sum(Application.Index(ListBox1.List, , 3))
End Sub

Le bouton go a la propriété "Ne pas déplacer ou dimensionner avec les cellules".

A+

 

[Scorpio]

Bonjour Job75,
Je vous remercie beaucoup,
Je n'est pas encore remarqué la correction dans le code, mais je vais faire la comparaison avec le code préscédent.
Encore merci, super, et A+++++