If Cells(i, 4).Value = Cells(i + 1, 4).Value And Cells(i, 6).Value = Cells(i + 1, 6).Value And Cells(i, 7).Value = Cells(i + 1, 7).Value Then calculer la moyenne, l'écart type et les quartiles
If Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 6) = Cells(i + 1, 6) And Cells(i, 7) = Cells(i + 1, 7) Then
' Calculer la moyenne
' Calculer l'écart type
' Calculer les quartiles
End if
If Cells(i, 4) = Cells(i + 1, 4) And Cells(i, 6) = Cells(i + 1, 6) And Cells(i, 7) = Cells(i + 1, 7) Then
' Calculer la moyenne
Range("D6") = Application.WorksheetFunction.Average(Range("A5:A10"))
' Calculer l'écart type
Range("D7") = Application.WorksheetFunction.StDev(Range("A5:A10"))
' Calculer les quartiles
End if