Une bonne ame pour m'aider svp

bonjour,

J'ai parlé de mon problème sur le forum mais personne ne m'a répondu alors je me pose la question à savoir si ce que je demande est si complexe que cela ?

j'ai ceci :
w = “toto”
ChDrive
QPath = Dossier_PC
Qfic = Dir(QPath & "*" & ".xls")

With Workbooks(Dossierfinal).Sheets("Global")
Set x = .Range("AR3:CF3").Find(w, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
Workbooks(Qfic).Sheets("data").myMultipleRange.Cop y
.Cells(6, x.Column).PasteSpecial Paste:=xlValues
Workbooks(Qfic).Sheets("base").Range("F6").Copy x
End If
End With

donc dans le "dossierfinal", je recherche de "AR3:CF3" si "toto" existe en tete de colonne et si c'est le cas alors je copie mes multiplerange à partir de la ligne 6 puis je copie la valeur "toto" en tete de colonne.

maintenant voila ma question :
en gardant la meme architecture je voudrais toujours detecter si toto existe de AR3:CF3 et si c'est le cas alors je voudrais effacer la colonne mais seulement de la ligne 6 à la ligne 275 et enfin supprimer "toto".

bref pouvoir effacer les données et le nom correspondant


j'ai essayé cela mais ca ne tourne pas... :

With Workbooks(Dossierfinal).Sheets("Global")
Set x = .Range("AR3:CF3").Find(w, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
.Cells(("6:275"), x.Column).Clearcontents
Workbooks(Qfic).Sheets("base").Range("F6").Delete x
End If
End With

merci d'avance