Sub CopierLesFormulesJusquEnBasDansRankingsCompletEtDetail()
Dim MaCelluleDepartEnJ As Variant
Dim MaCelluleDepartEnW As Variant
Dim MaCelluleFin As Variant
MaCelluleDepartEnJ = Range("J2").Address
MaCelluleDepartEnW = Range("W2").Address
MaCelluleFin = Range("A1").CurrentRegion.End(xlDown).Offset(0, 22).Address
If MaCelluleFin = Range("W65536").Address Then Exit Sub
Range(MaCelluleDepartEnJ, MaCelluleDepartEnW).Select
Selection.AutoFill Destination:=Range(MaCelluleDepartEnJ, MaCelluleFin), Type:=xlFillDefault