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 : 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
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 & "")