Bonjour voici un code qui me permet de tiré des données d'un onglet a un autre en ajoutant des filtres

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 Sub Macro1()
 Dim ad As Range 'déclare la variable ad (Anciennes Données)
 Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
 Dim pl As Range 'déclare la variable pl (PLage)
 Dim cel As Range 'déclare la variable cel (CELlule)
 Dim dest As Range 'déclare la variable dest (cellule de DESTination)
 Dim cl As Workbook
 
 Set cl = Workbooks("KARA_VIEW_GP.xls")
 
 Set ad = Sheets("Port_Bellecour").Range("AB5").CurrentRegion 'définit la plage des anciennes données
 
'If ad.Rows.Count > 1 Then 'condition : si ad contient plus d'une seule ligne
    ' Set ad = ad.Offset(1, 0).Resize(ad.Rows.Count - 1, ad.Columns.Count) 'redéfinit ad (sans la première ligne)
     'ad.Clear 'efface ad
'End If 'fin de la condition
 
With cl.Sheets("Daily Equity")  'prend en compte l'onglet "Daily Equity"
     'dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne A
     Set pl = .Range("A2:A15000") 'définit la plage pl
 End With 'fin de la prise en compte de l'onglet "Daily Equity"
 
For Each cel In pl 'boucle sur toutes les cellule cel de la plage pl
     'condition : si la date correspond et si en B il y a "Momentum"
     If Day(cel.Value) = Day(Date) And Month(cel.Value) = Month(Date) And Year(cel.Value) = Year(Date) And cel.Offset(0, 1).Value = "Momentum" Then
         'définit la cellle de destination
         Set dest = IIf(Sheets("Port_Bellecour").Range("AB5") = "", Sheets("Port_Bellecour").Range("AB5"), Sheets("Port_Bellecour").Cells(Application.Rows.Count, 28).End(xlUp).Offset(1, 0))
         dest.Value = cel.Value 'récupère la date
         dest.Offset(0, 1).Value = cel.Offset(0, 4).Value 'récupère le code isin
         dest.Offset(0, 2).Value = cel.Offset(0, 3).Value 'reçupère le nom de la valeur
         dest.Offset(0, 3).Value = cel.Offset(0, 12).Value 'récupère la devise
         dest.Offset(0, 4).Value = cel.Offset(0, 11).Value 'récupère la quantité
         dest.Offset(0, 5).Value = cel.Offset(0, 6).Value 'récupère le sens
         dest.Offset(0, 6).Value = cel.Offset(0, 15).Value 'récupère le cours
     End If 'fin de la condition
 Next cel 'prochaine celllule de la boucle
 
End Sub
Il fonctionne mais a partir d ela 2eme ligne, le code m'affiche mon tableau a la ligne 183??? au lieu de la 6???? Y a t-il quelque chose que je n'ai pas vu?

Thanks in advance