'Trouver la dernière ligne remplie de la colonne A
DLig = ActiveSheet.Range("A" & Rows.Count).End(XlUp].Row
Selection.autofilter Field:=1
Selection.autofilter Field:=1, Criteria1:=numMonthStart, Operator:=xlAnd
ActiveSheet.Range("$A$1:$K$" & Dlig).autofilter Field:=4, Criteria1:="704400"
Cells.Find(What:="bleblebleble", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
[I](Le "blebleble" c'est un un petit bidouillage qui me renvoie a la première cellule vide)[/I]
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & Dlig-1 & "]C:R[-1]C)"