Suppression plage colonne selon critères

Bonjour à tous

Je souhaiterai supprimé des colonne qui sont comprises entre deux bornes.
Chaque bornes correspond à un texte précis dans la ligne 1

i = 1
limiteMin = 0
limiteMax = 0
For i = 1 To nombreColonne
    Cells(1, i).Select
    If Cells(1, i) = "xxx" Then
        limiteMin = i
    End If
    If Cells(1, i) = "yyy" Then
        limiteMax = i
    End If
Next i

Ensuite je récupere les bornes et tente de supprimé la plage avec :

Range("limiteMin:limiteMax-3").Delete Shift:=xlToLeft

Mais sans succès.
J'ai essayé diverses méthodes, mais je pense que c'est un probleme de syntaxe

L'erreur est :
Erreur d'execution 1004
La methode Range de l'objet _Global à echoué

En mode débogague ma ligne Range correspond à :

Range("13:61").... 

qui sont bien les colonnes que je souhaite supprimé.

Votre aide sera la bienvenue

Merci