Sub Macro3()
Sheets("MRE Manuel").Select
Dernligne = Range("f" & Rows.Count).End(xlUp).Row
PremLigne = Range("f3").Row
Dernlignec = Range("c" & Rows.Count).End(xlUp).Row
PremLignec = Range("c3").Row
Sheets("Indicateurs").Select
resultat = InputBox("Quel mois voulez vous mettre à jour ?", "Choisir le mois", "Mois en nombre")
Cellule = resultat + 4
Range("f" & Cellule).Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(IF('MRE Manuel'!R" & PremLignec & "'MRE Manuel'!C:'MRE Manuel'!R" & Dernlignec & "'MRE Manuel'!C=resultat,1/COUNTIF('MRE Manuel'!R" & PremLigne & "'MRE Manuel'!C:'MRE Manuel'!R" & Dernligne & "'MRE Manuel'!C,'MRE Manuel'!R" & PremLigne & "'MRE Manuel'!C:'MRE Manuel'!R" & Dernligne & "'MRE Manuel'!C))"
End Sub