Comportement anormale - Suppression de ligne dans tableau structuré

 With [Nicotine]
        .Columns(18).EntireColumn.Insert                                                ' colonne auxiliaire
        .Columns(18) = "=1/(RC[-2]=0)"                                                  ' RC[-2] : Nb Colonne(s) avant Colonne Auxiliaire = (la colonne cible à traiter) --> "Q"
                                                                                        ' Valeur de retour --> True - False
        .Columns(18) = .Columns(18).Value                                               ' supprime les formules
        .Sort .Columns(18), xlDescending, Header:=xlYes                                 ' tri pour accélérer
        with Intersect(.Columns(18).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells)
         if .Rows.Count>1 Then    .Delete xlUp
        end with
        .Columns(18).ClearContents                                                      ' Supprimer data dans les cellules de la colonne
    End With

 With [Nicotine]
    If .ListObject.DataBodyRange.Rows.Count = 1 Then
        If .Cells(1, 16) = 0 Then .ListObject.DataBodyRange.Delete: Exit Sub
    Else
        .Columns(18).EntireColumn.Insert                                         ' colonne auxiliaire
        .Columns(18) = "=1/(RC[-2]=0)"                                           ' RC[-2] : Nb Colonne(s) avant Colonne Auxiliaire = (la colonne cible à traiter) --> "Q"
            .Sort .Columns(18), xlDescending, Header:=xlYes                                 ' tri pour accélérer
                Intersect(.Columns(18).SpecialCells(xlCellTypeFormulas, 1), .Cells).EntireRow.Delete xlUp
        .Columns(18).Delete                                                      ' Supprimer  la colonne
    End If
End With

With [Nicotine]
    .Columns(18).EntireColumn.Insert
    .Columns(18) = "=1/(RC[-2]=0)"
    .Columns(18) = .Columns(18).Value
    .Sort .Columns(18), xlDescending, Header:=xlYes 'tri pour accélérer
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.Columns(18).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp
    .Columns(18).EntireColumn.Delete                                                      ' Supprimer data dans les cellules de la colonne
End With

    With [Nicotine]
        .Columns(18).EntireColumn.Insert                                                ' colonne auxiliaire
        .Columns(18) = "=1/(RC[-2]=0)"                                                  ' RC[-2] : Nb Colonne(s) avant Colonne Auxiliaire = (la colonne cible à traiter) --> "Q"
                                                                                        ' Valeur de retour --> True - False
        .Columns(18) = .Columns(18).Value                                               ' supprime les formules
        .Sort .Columns(18), xlDescending, Header:=xlYes                                 ' tri pour accélérer
       
        If .Rows.Count > 1 Then
            Intersect(.Columns(18).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells).Delete xlUp
        End If
        .Columns(18).ClearContents                                                      ' Supprimer data dans les cellules de la colonne
    End With

With [Nicotine_OUT]
    If .Rows.Count > 1 Then
    Dim Rng1 As Range
    On Error Resume Next
    Set Rng1 = Range("Nicotine_OUT[[ID_CMD]]").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
        If Not Rng1 Is Nothing Then
          Rng1.Delete Shift:=xlUp
        End If
    End If
End With

' Condition - 2 étant la nombre de ligne lorsque le tableau est vide (Entête + 1 ligne)
If Last_Ligne_St_NIC > 2 Then

' ----  Tableaux - Nicotine ---
'------------------------------
    For kk = 1 To Last_Ligne_St_NIC
        If List_obj_St_NIC.Range(kk, 16).Value = Valeur Then
           
            'MsgBox "Le tableau :  " & List_obj_St_NIC & Chr(13) & Chr(10) & "à la Ligne  " & kk & Chr(13) & Chr(10) & _
            "à une valeur de :  " & Valeur
   
            ' Nicotine_OUT - Compte le nombre de ligne (entête comprise étant la ligne No. 1)
            Last_Ligne_St_NIC_OUT = (List_obj_St_NIC_OUT.Range.Rows.Count)
            Set List_row_St_NIC_OUT = List_obj_St_NIC_OUT.ListRows.Add
            List_obj_St_NIC_OUT.ListRows.Add                ' Ajout d'un ligne supplémentaire (cas particulier)
            'MsgBox "Le tableau " & List_obj_St_NIC_OUT & Chr(13) & Chr(10) & "contient " & Last_Ligne_St_NIC_OUT & " lignes"
           
            ' Copie la ligne cible du tabeau cible
            List_obj_St_NIC.ListRows.item(kk - 1).Range.EntireRow.Copy
           
            ' Colle la ligne cible du tabeau destination
            List_obj_St_NIC_OUT.ListRows.item(Last_Ligne_St_NIC_OUT - 1).Range.EntireRow.PasteSpecial
           
            Application.CutCopyMode = False
           
        End If
    Next
End If