Sub Classement()
'
' Classement Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+S
'
Sheets("Résultat courses").Select
Range("B3").Select
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC2,Tableau_DonnéesExternes_1[[No]:[PTS]],4,FALSE)"
Range("B3").Select
Selection.End(xlToRight).Select
Selection.AutoFill Destination:=[RC:R[-22]C & Netxfill], Type:=xlFillDefault
Range("D3:K22").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B24").Select
End Sub