Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [A1].CurrentRegion
With .Columns(2).Resize(, .Columns.Count - 1)
.Rows(.Rows.Count + 5) = "=AVERAGE(OFFSET(" & .Columns(1).Address & ",,COLUMN()-2))"
.Rows(.Rows.Count + 6) = "=STDEV.S(OFFSET(" & .Columns(1).Address & ",,COLUMN()-2))"
.Rows(.Rows.Count + 5).Resize(2) = .Rows(.Rows.Count + 5).Resize(2).Value 'facultatif
End With
End With
End Sub