XL 2016 NBcar dans barre d'état

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = Replace(ActiveCell.Address, "$", "") & " contient " & Len(CStr(ActiveCell.Value)) & " caractères(s)"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:Z100")) Is Nothing Then
        If Target = "" Then
            Application.StatusBar = "La cellule " & Target.Address & " ne contient aucun caractère."
        Else
            Application.StatusBar = "La cellule " & Target.Address & " contient " & Len(Target) & " caractères."
        End If
    End If
Fin:
End Sub