ArtyDy

Sub test()
    Dim Der As Integer
    Sheets("CONDITION UNIMANUELLE").Activate
    
    Derx = Range("A65536").End(xlUp).Row
    Dery = Range("B65536").End(xlUp).Row
    x = Range("A3:A" & Derx)
    y = Range("B3:B" & Dery)
    sdx = Application.WorksheetFunction.StDev_P(x)
    sdy = Application.WorksheetFunction.StDev_P(y)