Sub Simulation2()
Application.ScreenUpdating = False
Sheets("Sheet2").Select
If Range("B2").Value = "" Then
Range("B2").Activate
Else
'"Cells(2, Columns.Count)" mieux pour les version Excel
'inférieure à 2007
With Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)
.FormulaR1C1 = "=SUM('Sheet1'!R2C2:R4C2)"
.Value = .Value
End With
End If
With Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
.FormulaR1C1 = "=SUM('Sheet1'!R5C2:R7C2)"
.Value = .Value
End With
With Cells(4, Columns.Count).End(xlToLeft).Offset(, 1)
.FormulaR1C1 = "=SUM('Sheet1'!R8C2:R10C2)"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub