Probleme VBA sur automatisation macro

Bonjour,

J'ai un petit souci avec ce code étant débutant.
Je vous sollicite car je veux que cette feuille sois entièrement automatique.
A chaque fois que je dois faire fonctionner cette macro, elle dois ajouter des valeurs sur une colonne vide et donc à chaque fois rajouter +1 à chaque formule.
Le code n'est pas finit et c'est surtout la dernière ligne qui me pose problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sheets("Avancement").Select Range("A3").Select Selection.End(xlDown).Select derniereligne2 = ActiveCell.Row       Sheets("Base").Select Range("A8").Select Selection.End(xlDown).Select derniereligne = ActiveCell.Row   Sheets("Avancement").Select Range("A2").End(xlToRight)(1, 2).Select ActiveCell.FormulaR1C1 = "=TODAY()" Range("A3").End(xlToRight)(1, 2).Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC1,Base!R8C3:R" & derniereligne & "C33,31,FALSE)"   Selection.AutoFill Destination:=("Range("A3").End(xlToRight)(1, 2).Select:R" & derniereligne2 & "")

---

Bonjour,

Code:

---

1 2 3 4 5 6 7

Application.ScreenUpdating = False ' évite les scintillements de l'écran et augmente la vitesse d'exécution Sheets("Avancement").Select DerLig2 = Range("A3").End(xlDown).Row 'dernière ligne de la colonne A feuille "Avancement" DerLig = Sheets("Base").Range("A8").End(xlDown).Row 'dernière ligne de la colonne A feuille "Base" DerCol = Range("A2").End(xlToRight).Column 'Dernière colonne de la ligne 2 de la feuille "Avancement" Cells(2, DerCol + 1) = Date 'date du jour après la dernière colonne ligne 2 de la feuille Avancement Range(Cells(3, DerCol + 1), Cells(DerLig, DerCol + 1)).FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,Base!R8C3:R" & DerLig & "C33,31,0)+1,"""")" 'Formule incrémentée de 1 à chaque ligne

---

Cdlt