Sub CleanData()
'Application.ScreenUpdating = False
Sheets("Feuil1").Select
'Copie dans le presse papier l'ensemble des données
tablo = Range("A1").CurrentRegion
' Range("A1").CurrentRegion.Copy
'Ouvre le fichier TableauDeBord et colle le résultat à partir de la première case vide colonne B, feuille CarnetDeTrades
Workbooks.Open Filename:="C:\Users\PC_PAPA\Desktop\Classeur1.xlsm"
Sheets("Fleur").Select
Fin = Range("A65536").End(xlUp).Row
Range("A" & Fin).Select
For i = 1 To UBound(tablo)
Range("A" & Fin + i) = tablo(i, 1)
Range("B" & Fin + i) = tablo(i, 2)
Next
End Sub