Bonjour je souhaite coller une recherchev sur toutes les lignes actives de la dernière colonne + 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub tricv()
 
Dim C As Range, DerCol As Long, DerLig As Long
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
DerLig = Range("A1:A" & Rows.Count).End(xlUp).Row
 
Cells(1, DerCol + 1).FormulaR1C1 = "=VLOOKUP('Analyse LT RH - TRI CV'!RC[-1],'Analyse Hebdomadaire RH'!R[-1]:R,4,FALSE)"
 
End Sub
Pour l'instant je ne peux que coller la formule sur la première ligne de la dernière colonne alors que j'aimerais la tirer sur jusqu'à la dernière ligne.

J'ai essayé plusieurs solutions mais je vous avoue que je suis un peu perdu.