Sheets(1).Select
WS_Count = ActiveWorkbook.Worksheets.Count
WS_Count = WS_Count - 1
For Y = 1 To WS_Count
Sheets(Y).Select
Sheets(Y).ListObjects("Tableau" & Y).ShowTotals = True
Tableau = "Tableau" & Y
Nom = Sheets(Y).Name
Entete = Range("C1").Value
Sheets("Recap").Select
Entete = Split(Entete, "_")(1)
A = A + 1
Range("C" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Lignfac_" + Entete + "_201510])"
Range("D" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201511]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201511])"
Range("E" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201512]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201601])"
Range("F" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201601]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201602])"
Range("G" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201602]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201603])"
Range("H" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201603]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201604])"
Range("I" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201604]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201605])"
Range("J" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201605]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201606])"
Range("K" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201606]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201607])"
Range("L" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201607]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201608])"
Range("M" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201608]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201609])"
Range("N" & A).FormulaR1C1 = _
"=SUBTOTAL(109," + Tableau + "[Hono_" + Entete + "_201609]) + SUBTOTAL(109," + Tableau + "[Nonabo_" + Entete + "_201609])"
Range("O" & A).FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Range("B" & A).FormulaR1C1 = Nom
Sheets(Y).Select
Next Y