Récupérer données issues de macro

Bonjour

J'ai conçu une macro capable de compter des éléments selon plusieurs critères.
J'ai utilisé la fonction

Code:

---

answer=Application.WorksheetFunction.CountIfs(critères)

---

.
J'aurais aimé réinjecter les données trouvées dans un tableau qui évolue par mois de l'année.
Ainsi comment récupérer les données?
Dans un premier temps j'ai pu les récupérer grâce à la fonction "formula", on a donc par exemple:

Code:

---

Sheets("INDICATEURS").Range("O4").Offset(1).Formula =answer1

---

Or chaque les données sont différentes, et les adresses des cellules changent.
Comment procéder pour mettre les données l'une à côté de l'autre?
Sachant que j'ai 4 données par mois (answer).

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub compt() Dim m As Date m = CDate(Range("$AH$2"))   Dim plage As Range, plage1 As Range, plage2 As Range, plage3 As Range, plage4 As Range, plage5 As Range   'plage de référence pour les critères Set plage = Range("A1" & ":A" & Range("A65000").End(xlUp).Row) Set plage1 = Range("S1" & ":S" & Range("S65000").End(xlUp).Row) Set plage2 = Range("J1" & ":J" & Range("J65000").End(xlUp).Row) Set plage3 = Range("AQ1" & ":AQ" & Range("AQ65000").End(xlUp).Row)   answer = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, "<1", plage2, _ "<" & Format(m, "mm/dd/yyyy")) Sheets("INDICATEURS").Range("O4").Formula = answer   answer1 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">=1", _ plage3, "<=6", plage2, "<" & Format(m, "mm/dd/yyyy")) Sheets("INDICATEURS").Range("O4").Offset(1).Formula = answer1   answer2 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">6", _ plage3, "<=12", plage2, "<" & Format(m, "mm/dd/yyyy")) Sheets("INDICATEURS").Range("O4").Offset(2).Formula = answer2   answer3 = Application.WorksheetFunction.CountIfs(plage, "TH*", plage1, "BRIVE", plage3, ">12", _ plage2, "<" & Format(m, "mm/dd/yyyy")) Sheets("INDICATEURS").Range("O4").Offset(3).Formula = answer3 End Sub

---

PS:le tableau type en annexe.

Je vous remercie d'avance pour l'aide que vous m'apporterez!:oops: :oops: :)

Cdt
Tiviia