'Mise en forme
[color=red] Range('Points!A' & Position1deb & ':J' & Position1fin).Copy
Range('Points!A' & Position2deb & ':J' & Position2fin).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False[/color]
Range('Points!A' & Position2deb).Value = Date
Range('Points!D' & Position2deb).Value = 'Points'
Range('Points!D' & Position2deb + 1).Value = Date
Range('Points!F' & Position2deb + 1).Value = 'Diff'
Range('Points!G' & Position2deb + 1).Value = '%'
Range('Points!H' & Position2deb).Value = 'Place'
Range('Points!H' & Position2deb + 1).Value = Date
Range('Points!J' & Position2deb + 1).Value = 'Diff'