Bonjour à tous,

Je suis à la recherche d'un moyen pour automatiser un AutoFill comme la pj.

Je voudrais obtenir les cellules vertes automatiquement (à partir des cellules jaunes).

J'ai trouvé ça mais il faudrait le modifier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub lastrow() 
    Dim lastrow As Long 
 
    lastrow = Worksheets("sheet1").Range("E8").End(xlDown).Row 
    With Worksheets("Sheet1").Range("F8") 
        .AutoFill Destination:=Range("F8:F" & lastrow&) 
    End With 
End Sub
Pouvez-vous m'aider svp ?

Merci par avance !