Bonjour,

Je cherche à formuler une macro qui rempli automatiquement la dernier cellule d'un tableau puis qui étend la formule jusqu'en bas de la colonne pour finir par copier les données en valeur.
Voici le code que j'ai pour l'instant. Il me permet de remplir une recherchev dans la première cellule vide mais ensuite je n'arrive pas à faire en sorte que la macro autofill cette formule jusqu'en bas. (Partie en italique)

Merci pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
End Sub