Bonjour,

Mon problème est que je voudrais que l'autofill s'exécute sur la feuil1 car dans mon fichier j'ai 2 feuilles Excel.

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
ActiveCell.FormulaR1C1 = "=(RC[-1]/(COUNTA(R8C10:R14C10)))"
 
Dim DernLigne As Long
 
DernLigne = Sheets("Feuil1").Range("K" & Rows.Count).End(xlUp).Row
Range("L8").AutoFill Destination:=Range("L8:L" & DernLigne)
 
End Sub