Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
If Target = Target(0) Or Target = "" Then Exit Sub
Cancel = True
Dim P As Range, c As Range, n1, n2, t$
Set P = Target.Resize(Application.CountIf(Columns(2), Target))
Set c = [C1]
While c <> ""
Set P = P.Offset(, 1)
n1 = Application.Average(P)
If IsError(n1) Then n1 = "#DIV/0!" Else n1 = Format(n1, "0.00")
n2 = Application.StDev(P)
If IsError(n2) Then n2 = "#DIV/0!" Else n2 = Format(n2, "0.00")
t = t & vbLf & vbLf & c & " - Moyenne : " & n1 & vbLf _
& c & " - Ecart-type : " & n2
Set c = c(, 2)
Wend
MsgBox Mid(t, 3), , Target
End Sub