Sub decoupe()
Dim drow As Integer
drow = Sheets('feuil1'Â'Â').Range('A65536'Â'Â').End(xlUp).Row
frow = 0
interRow = 0
For i = 1 To drow
interRow = interRow + 1
If interRow = 50 Then
frow = i - 49
ref = 'A' & frow & ':' & 'B' & i
Range(ref).Select
Selection.Copy
Sheets.Add after:=Sheets.Item(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('D1'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Moyenne A'
Range('E1'Â'Â').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(RC[-4]:R[49]C[-4])'
Range('D2'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Moyenne B'
Range('E2'Â'Â').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-1]C[-3]:R[48]C[-3])'
Range('D4'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Ecart type A'
Range('E4'Â'Â').Select
ActiveCell.FormulaR1C1 = '=STDEV(R[-3]C[-4]:R[46]C[-4])'
Range('D5'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Ecart type B'
Range('E5'Â'Â').Select
ActiveCell.FormulaR1C1 = '=STDEV(R[-4]C[-3]:R[45]C[-3])'
interRow = 0
Sheets(1).Activate
End If
Next
frow = i - interRow
ref = 'A' & frow & ':' & 'B' & drow
Range(ref).Select
Selection.Copy
Sheets.Add after:=Sheets.Item(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('D1'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Moyenne A'
Range('E1'Â'Â').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(RC[-4]:R[49]C[-4])'
Range('E2'Â'Â').Select
Range('D2'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Moyenne B'
Range('E2'Â'Â').Select
ActiveCell.FormulaR1C1 = '=AVERAGE(R[-1]C[-3]:R[48]C[-3])'
Range('D4'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Ecart type A'
Range('E4'Â'Â').Select
ActiveCell.FormulaR1C1 = '=STDEV(R[-3]C[-4]:R[46]C[-4])'
Range('D5'Â'Â').Select
ActiveCell.FormulaR1C1 = 'Ecart type B'
Range('E5'Â'Â').Select
ActiveCell.FormulaR1C1 = '=STDEV(R[-4]C[-3]:R[45]C[-3])'
End Sub