Function NomPlage(Optional ByVal Rg As Range, Optional ByVal Déf As String = "") As String
Dim Nom As String
If Rg Is Nothing Then
Set Rg = Application.Caller
Nom = NomPlage(Rg.Offset(1, 0))
If Nom = "" Then Nom = NomPlage(Rg.Offset(0, 1))
If Nom = "" Then Nom = NomPlage(Rg.Offset(-1, 0))
If Nom = "" Then Nom = NomPlage(Rg.Offset(0, -1))
Else
On Error Resume Next: Nom = Rg.Name.Name
If Err <> 0 Then NomPlage = Déf: Exit Function
End If
NomPlage = Mid$(Nom, PosPExcla(Nom) + 1)
End Function