Selection.QueryTable.Delete

bonjour afin de remedier a un probleme de recurence de connexion externe je voulais essayer de faire une macro de ce style

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A7:D660").Select
    Selection.QueryTable.Delete
    Selection.ClearContents
End Sub

le soucis c est que si j'ai bien une connexion externe en place, ça marche, sinon j'ai un message d erreur definie par l application ou par l objet

car les 2 cas peuvent arriver