Sub precision_interne234U()
Dim i As Integer
Dim moy As Double
Dim SD As Double
Dim moy2 As Double
Dim SD2 As Double
With Sheets("005-IRMM100")
'on nomme les cellules de debut ou l'on mettra les différents résultat*
Range(.Cells(2, 58)).Name = "moyenne"
Range(.Cells(2, 59)).Name =...