Microsoft 365 barre d'état - affichage

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = "Nombre " & Target.Count & " Somme " & Application.Sum(Target)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, v#
Set r = Intersect(Target, UsedRange)
If Not r Is Nothing Then
    For Each r In r
        If IsNumeric(CStr(r)) Then v = v + CDbl(r)
    Next
End If
Application.StatusBar = "Nombre " & Target.Count & " Somme " & v
End Sub