Sub CopierFormuleSansBoucler()
Dim TextFormule As String
TextFormule = "=IF(R[1]C[6]="""","""",IF(R2C6>10%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1),IF(R2C6>50%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1)+SUM('Cercle trois'!R2C1:R155C1),SUM('Cercle un'!R2C1:R155C1))))"
'Adapter la plage de cellule
Sheets("Cercle un").Range("C3:C1967").FormulaR1C1 = TextFormule
'ou voir la Macro2
End Sub
Sub Macro2()
Dim DerLigne As Long
Dim TextFormule As String
TextFormule = "=IF(R[1]C[6]="""","""",IF(R2C6>10%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1),IF(R2C6>50%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1)+SUM('Cercle trois'!R2C1:R155C1),SUM('Cercle un'!R2C1:R155C1))))"
DerLigne = Sheets("Cercle un").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Cercle un").Range("C2:C" & DerLigne).FormulaR1C1 = TextFormule
End Sub
Sub Macro3_Valeurs_Seules()
Dim DerLigne As Long
Dim TextFormule As String
TextFormule = "=IF(R[1]C[6]="""","""",IF(R2C6>10%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1),IF(R2C6>50%,SUM('Cercle un'!R2C1:R155C1)+SUM('Cercle deux'!R2C1:R155C1)+SUM('Cercle trois'!R2C1:R155C1),SUM('Cercle un'!R2C1:R155C1))))"
DerLigne = Sheets("Cercle un").Cells(Rows.Count, "B").End(xlUp).Row
With Sheets("Cercle un").Range("C2:C" & DerLigne)
.FormulaR1C1 = TextFormule
.Value = .Value
End With
End Sub