Bonjour,
si j'ai bien compris
Option Explicit
Dim ln, n
Sub Bouton1_Cliquer()
Dim i%
'Combien d'analyse par échantillon ?
Dim nbAnalyses As Integer
nbAnalyses = InputBox("Entrez le nombre d'analyses faites par échantillon")
Range("A" & nbAnalyses + 1 & ":D" & nbanalyses +100).ClearContents
i = 1
Cells(nbAnalyses + 2, i) = "Moyenne"
Cells(nbAnalyses + 3, i) = "ecart type global"
Cells(nbAnalyses + 4, i) = "ecart type min" 'je ne sais pas ce que c'est
For i = 2 To 4
Cells(nbAnalyses + 2, i) = Application.Average(Range(Cells(2, i), Cells(nbAnalyses + 1, i)))
Cells(nbAnalyses + 3, i) = Application.StDev(Range(Cells(2, i), Cells(nbAnalyses + 1, i)))
Cells(nbAnalyses + 4, i) = Application.StDev(Range(Cells(2, i), Cells(nbAnalyses + 1, i)))
Next i
End Sub