XL 2013 VBA et plages nommées

Function PlgUti(ByVal PlageDép As Range, Optional ByVal PlagExam As Range = Nothing, _
   Optional ByVal LMin As Long, Optional ByVal CMin As Long) As Range
Rem. Cherche la partie utilisée d'une plage, c'est à dire celle qui s'étend jusqu'à la dernière cellule renseignée de plus qu'une chaîne vide.
'    PlageDép: Plage de départ. Seule la 1ère cellule spécifiée est prise en compte pour la déterminer, et suffit donc pour une utilisation VBA.
'            Pour utilisation en formules, il est néanmoins nécessaire de spécifier la plage depuis celle ci jusqu'au reste des colonnes entières.
'    PlageExam: Plus grande plage susceptible de contenir la plage cherchée.
'            Facultatif: UsedRange assumé par défaut.
'    LMin: Mombre de lignes minimum à considérer même si tout est vide.
'    CMin: Mombre de colonnes minimum à considérer même si tout est vide.
Dim LMax As Long, CMax As Long, NbL As Long, NbC As Long
On Error GoTo RienTrouvé
If PlagExam Is Nothing Then Set PlagExam = PlageDép.Worksheet.UsedRange
LMax = PlagExam.Find("*", PlagExam.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
CMax = PlagExam.Find("*", PlagExam.Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
On Error GoTo 0
NbL = LMax - PlageDép.Row + 1: If NbL < LMin Then NbL = LMin
NbC = CMax - PlageDép.Column + 1: If NbC < CMin Then NbC = CMin
If NbL < 1 Or NbC < 1 Then GoTo CEstToutVide
Set PlgUti = PlageDép.Resize(NbL, NbC)
Exit Function
RienTrouvé: Resume CEstToutVide
CEstToutVide: Set PlgUti = Nothing
End Function
'

Function ColUti(ByVal PlageDép As Range, Optional ByVal LMin As Long, Optional ByVal CMin As Long) As Range
Rem. Comme PlgUti, mais la plage rendue se limitera aux colonnes couvertes par la plage de départ spécifiée.
Set ColUti = PlgUti(PlageDép, Intersect(PlageDép.Worksheet.UsedRange, PlageDép.EntireColumn), LMin, CMin)
End Function

Sub Mise_en_forme_conditionnelle()
Dim LO As ListObject
Set LO = Range("Tableau2").ListObject
LO.DataBodyRange.FormatConditions.Delete

With LO.ListColumns(1).DataBodyRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=$AD5<>0")
   .Interior.ColorIndex = 35
   .Interior.Pattern = xlSolid
   .Interior.PatternColorIndex = xlAutomatic
   .StopIfTrue = False
   End With

With Range("Tableau2").Select
Set plage2 = Range("Tableau2")
plage2.FormatConditions.Add Type:=xlExpression, Formula1:="=ETA<>0"
plage2.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.ColorIndex = 35
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
plage2.FormatConditions(1).StopIfTrue = False

End With

Option Explicit
Dim LO As ListObject

Function A1Tit(ByVal TitCol As String) As String
Dim Plg As Range
Set Plg = LO.ListColumns(TitCol).DataBodyRange.Rows(1)
A1Tit = Plg.Address(False, True)
End Function

                       … Formula1:="=" & A1Tit("ETA") & "<>0"

Formula1:="=" & [ETA].Rows(2).Address(False, True) & "<>0"

[ETA].Rows(2).Address(False, True)

Option Explicit
Private LO As ListObject
'

Sub Mise_en_forme_conditionnelle()
Dim FC As FormatCondition
Set LO = ActiveSheet.ListObjects(1)
LO.DataBodyRange.FormatConditions.Delete

Set FC = LO.ListColumns("Colonne2").DataBodyRange.FormatConditions.Add _
   (Type:=xlExpression, Formula1:="=" & A1Tit("ETA") & "<>0")
With FC.Interior: .ColorIndex = 35: .Pattern = xlSolid
   .PatternColorIndex = xlAutomatic: End With
FC.StopIfTrue = False
End Sub
'

Function A1Tit(ByVal TitCol As String) As String
Dim Plg As Range
Set Plg = LO.ListColumns(TitCol).DataBodyRange.Rows(1)
A1Tit = Plg.Address(False, True) ' Adresse 1ère cellule avec référence ligne relative.
End Function
Function AColTit(ByVal TitCol As String) As String
Dim Plg As Range
Set Plg = LO.ListColumns(TitCol).DataBodyRange
AColTit = Plg.Address(True, True) ' Adresse colonne pour NB.SI, EQUIV etc.
End Function