Macro VBA autofill à partir de la première cellule vide du tableau

Question

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.

Merci pour votre aide

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

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum Votre post était marqué comme résolu, est-ce bien le cas ? Cordialement...