Find copy and paste

Bonjour à tous,

Je dois réaliser une macro censée réaliser automatiquement un historique à partir d'aujourd'hui. Les informations qui doivent être répertoriées sont dynamiques, situées dans une colonne et ne sont pas archivées. Elles changent en permanence. Mon objectif est d'extraire chaque jour la valeur des cellules de cette colonne et de les rapatrier dans un historique, les organisant jour par jour et ceux, automatiquement.

Pour cela, j'ai décidé de procéder de la façon suivante:
Si la cellule 1, j = aujourd'hui alors les valeurs dynamiques de la colonne (située dans un autre onglet nommé "PnL") seront extraites dans la colonne j. Ce qui me permettrait de figer les données dynamiques et de créer un historique.
Problème, j'ai créer la boucle mais je ne parvient pas à ordonner de copier/coller les informations dans la colonne souhaitée.

En pièce jointe, le format de l'onglet dans lequel je souhaites rapatrier les données.

N'hésitez pas à me signaler si j'ai manqué de clarté dans mon exposé.

Voici ma macro avec en guise de ?????????? la ligne qu'il me manque.




Sub Historique_Pnl_Dynamique()

Dim j As Integer

Sheets("PnL").Select
Range("B17:E200").Select
Selection.Copy


Sheets("PnL Histo Dyna").Select
Range("A2😀200").Select
ActiveSheet.Paste


For j = 5 To 100
If (ThisWorkbook.Worksheets("PnL Histo Dyna").Cells(1, j).Value = ThisWorkbook.Worksheets("PnL").Cells(2, 2).Value) Then
Sheets("PnL").Select
Range("R17,R200").Copy

?????????????????????????????????????


Else
Cells(3, j).Value = Cells(3, j).Value
End If
Next


End Sub




Merci d'avance pour votre aide.

Cordialement