Sub Macro_Test()
Range("B7") = "50"
[C7].FormulaR1C1 = _
"=IF(COUNTA(RC[1],RC[3],RC[5],RC[7],RC[9],RC[11],RC[13],RC[15],RC[17],RC[19],RC[21],RC[23])<12,"""",RC[-1]-SUM(RC[1],RC[3],RC[5],RC[7],RC[9],RC[11],RC[13],RC[15],RC[17],RC[19],RC[21],RC[23]))"
MsgBox "test partie 1"
Range("D7") = "1": Range("F7") = "1"
Range("D7:G7").AutoFill Destination:=Range("D7:Z7"), Type:=xlFillDefault
MsgBox "test partie 2"
[F7] = "": [H7] = "": [Z7] = ""
End Sub