Microsoft 365 écrire dans une cellule d'un tableau Listobject

Intersect(lo.ListColumns("Ref_op").Range, lr.Range).Value = 9999

lo.DatabodyRange(lRow, lo.ListColumns("Ref_op").Index) = 9999

lo.ListColums.("Ref_op").DataBodyRange.Rows(lRow).Value = 9999

Dim TVL()
TVL = lr.Range.Value
TVL(1, lo.ListColums.("Ref_op").Index) = 9999
lr.Range.Value = TVL

Sub Ecrire()
Dim entete$, valeur, LO As ListObject, col As Variant
entete = "Ref_op"
valeur = 9999 'à adapter
For Each LO In ActiveSheet.ListObjects
    With LO.Range
        If Not Intersect(ActiveCell, .Cells) Is Nothing Then
            col = Application.Match(entete, .Rows(1), 0)
            If ActiveCell.Row > .Row And IsNumeric(col) Then _
                Intersect(ActiveCell.EntireRow, .Columns(col)) = valeur
            Exit For
        End If
    End With
Next
End Sub

Sub EcrireDansPlage()
Dim entete$, valeur, LO As ListObject, P As Range, col As Variant
entete = "Ref_op"
valeur = 9999 'à adapter
ActiveCell.Activate 'au cas où la sélection n'est pas un Range
For Each LO In ActiveSheet.ListObjects
    With LO.Range
        Set P = Intersect(Selection, .Cells)
        If Not P Is Nothing Then
            col = Application.Match(entete, .Rows(1), 0)
            If IsNumeric(col) Then
                Intersect(P.EntireRow, .Columns(col)) = valeur
                .Cells(1, col) = entete
            End If
        End If
    End With
Next
End Sub