Programme VBA bourse

Bonjour, je voudrais faire un code VBA pour automatiser un fichier Excel.

Dans un premier tableau j'ai toutes l'historique des actions acheté, il peut y avoir plusieurs fois le même non de l'action acheté à des dates différentes exemple :

ensuite j'ai un deuxième tableaux qui récapitule l'historique des actions achetés et qui calcule le PRU, la quantité etc..

j'ai essayé de faire du VBA pour récupérer les noms des actions du premiers tableau est de les fusionner dans le deuxième tableau pour supprimer les répétitions et n'avoir qu'une seul cellule par nom d'Actions mais comme ce sont des données spécifique que dois-je faire dans le code VBA pour définir mes cellules ? j'ai l'impression que le code pourrait être beaucoup plus simple.

Sub CopierValeursUniques()
Dim PlageSource As Range
Dim Cell As Range
Dim ValeursUniques As New Collection
Dim i As Long

' Définir la plage source
Set PlageSource = Range("C8:C51")

' Parcourir chaque cellule de la plage source
On Error Resume Next ' Ignorer les erreurs dues aux doublons dans la collection
For Each Cell In PlageSource

' Ajouter la valeur à la collection si elle n'est pas déjà présente
If Cell.Value <> "" Then ' Ignorer les cellules vides
ValeursUniques.Add Cell.Value, CStr(Cell.Value)
End If
Next Cell
On Error GoTo 0 ' Arrêter d'ignorer les erreurs

' Copier les valeurs uniques dans la plage de destination
For i = 1 To ValeursUniques.Count
If i <= Range("P7:P19").Rows.Count Then
Range("P7").Cells(i, 1).Value = ValeursUniques(i)
Else
Exit For
End If
Next i

' Message si trop de valeurs uniques pour la destination
If ValeursUniques.Count > Range("P7:P19").Rows.Count Then
MsgBox "Il y a plus de valeurs uniques que de cellules disponibles dans la plage P7:P19.", vbExclamation
End If
End Sub

Merci d'avance pour toutes les personnes qui vont prendre de leurs temps pour m'aider.

Bonjour,

Une proposition sans VBA avec Power Query.

Cordialement.