Autres Problème avec le #NA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range
Set dest = [I2:M2]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
dest.CurrentRegion.Offset(1).Clear 'RAZ
[A2].CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=dest 'filtre avancé copié
With dest.CurrentRegion
    .Offset(1).Interior.ColorIndex = xlNone 'efface les couleurs
    .Columns(2).Replace 0, "", xlWhole 'efface les montants nuls
    .Sort .Columns(1), xlAscending, .Columns(2), , xlAscending, Header:=xlYes '1er tri sur 2 colonnes
    .Columns(2).Replace "", 0 'éventuellement remet 0 dans les cellules vides
    .RemoveDuplicates Columns:=1, Header:=xlYes 'supprime les doublons
    .Sort .Columns(2), xlAscending, Header:=xlYes '2ème tri pour classer les montants
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

.Offset(1).Interior.ColorIndex = xlNone 'efface les couleurs

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range, mem
Set dest = [I2:M2]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
dest.CurrentRegion.Offset(1).Clear 'RAZ
[A2].CurrentRegion.AdvancedFilter xlFilterCopy, CopyToRange:=dest 'filtre avancé copié
With dest.CurrentRegion
    .Offset(1).Interior.ColorIndex = xlNone 'efface les couleurs
    .Columns(2).Replace 0, "", xlWhole 'efface les montants nuls
    .Sort .Columns(1), xlAscending, .Columns(2), , xlAscending, Header:=xlYes '1er tri sur 2 colonnes
    .Columns(2).Replace "", 0 'éventuellement remet 0 dans les cellules vides
    .RemoveDuplicates Columns:=1, Header:=xlYes 'supprime les doublons
    With .CurrentRegion 'nécessaire après la suppression des doublons
        .Sort .Columns(2), xlAscending, Header:=xlYes '2ème tri pour classer les montants
        '---bandes alternées---
        mem = .Columns(1) 'mémorise
        If .Row Mod 2 Then .Columns(1) = "=1/(MOD(ROW(),2)=0)" Else .Columns(1) = "=1/(MOD(ROW(),2))"
        Intersect(.Columns(1).SpecialCells(xlCellTypeFormulas, 1).EntireRow, .Cells).Interior.Color = RGB(217, 217, 217) 'gris
        .Columns(1) = mem 'restitue les valeurs
    End With
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim source As Range, dest As Range, nom$
Set source = [Tableau1].ListObject.Range 'tableau structuré
Set dest = [Tableau2].ListObject.Range 'tableau structuré
nom = dest.ListObject.Name
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'si le DataBodyRange n'existe pas ou s'il n'y aucune SpecialCell
dest.ListObject.DataBodyRange.Delete 'RAZ
dest.ListObject.Unlist 'convertit le tableau en plage
source.AdvancedFilter xlFilterCopy, CopyToRange:=dest.Rows(1) 'filtre avancé copié
source.AutoFilter 'remet en place le filtre automatique
With dest.Resize(source.Rows.Count)
    .Columns(2).Replace 0, "", xlWhole 'efface les montants nuls
    .Sort .Columns(1), xlAscending, .Columns(2), , xlAscending, Header:=xlYes '1er tri sur 2 colonnes
    .Columns(2).Replace "", 0 'éventuellement remet 0 dans les cellules vides
    .RemoveDuplicates Columns:=1, Header:=xlYes 'supprime les doublons
    Intersect(.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow, .Cells).Delete xlUp 'supprime les lignes vides
    .Sort .Columns(2), xlAscending, Header:=xlYes '2ème tri pour classer les montants
    Me.ListObjects.Add(xlSrcRange, .Cells, , xlYes).Name = nom 'recrée le tableau structuré
    Me.ListObjects(2).TableStyle = Me.ListObjects(1).TableStyle 'copie le style
End With
Application.EnableEvents = True 'réactive les évènements
End Sub