Sub MAj_BDResa_DateDiff ()
‘Plus rapide que Autofill
‘t1 = Timer
'Derl = ActiveSheet.Range("A65536").End(xlUp).Row
Sheets("BdRes2012").Select
Derl = Sheets("BdRes2012").Range("A65536").End(xlUp).Row
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=RC[-10]&"" ""&RC[-9]&RC[-4]&RC[-6]"
'Range("K2").Select
'Selection.AutoFill Destination:=Range("K2:K" & Derl)
'Range("K2:K" & Derl).Select
Range("K2").Copy Destination:=Range("K2:K" & Derl)
Range("K2:K" & Derl).Select
Selection.Copy
'Stop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M" & Derl)
'Range("M2:M" & Derl).Select
'Selection.Copy
Range("M2").Copy Destination:=Range("M2:M" & Derl)
Range("M2:M" & Derl).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlUp).Select
‘MsgBox Timer - t1
End Sub