code qui bug avec les mots US ou USA

Bonjour à tous,

voila il m'arrive un truc de fou ...

j'ai fait un code qui fonctionne très bien avec le pays "FR" ou/et "CA" ... en revanche, le meme code pour les "US" ou "USA", "United States" et "United_States" plante ... je ne comprends pas pourquoi...
Voici mon code.
Avez-vous une idée et une solution à part de renommer les US en un autre nom :ptdr:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
    'compte le nombre de lignes et colonnes
 
        Range("A1").Select
        nblignes = Range("A1", selection.End(xlDown)).Cells.Count
        nbColonnes = Range("A1", selection.End(xlToRight)).Cells.Count
 
    'recherche si le pays existe
 
        If Application.CountIf(Range("C:C"), "United States") > 1 Then
 
    'selectionne les lignes et les effface
 
            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3, Criteria1:= _
                "<>United States"
'            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3, Criteria1:= _
'                "=Canada", Operator:=xlOr, Criteria2:="=France"
            Rows("2:" & nblignes & "").Select
            Range(selection, selection.End(xlDown)).Select
            selection.Delete Shift:=xlUp
            ActiveSheet.ListObjects("Table13").Range.AutoFilter Field:=3
            Range("A2").Select
 
        Else
 
    'supprime l'onglet si le pays n'est présent dans l'onglet
            Sheets("US").Select
            ActiveWindow.SelectedSheets.Delete
 
        End If