Problème fichier excel partagé

[agadiroufla]

Bonjour,
Je suis sur le point de finaliser mon exécutable sur VB6, je vous demande de l'aide sur une erreur inattendue, je m'explique:
Je dois par le biais d'une boucle supprimer une cellule à qui contient une devise (exe USD). Les cellules à supprimer se situent à partir de la colonne B, on peut donc avoir plusieurs devises, donc plusieurs colonnes de renseignés.
Le but c'est, l'utilisateur doit sélectionner la devise à supprimer via listbox, et le programme se charge d'aller chercher la devise recherchée sur la ligne recherchée et puis la supprimer et surtout déclaer les celulles vers la gauche, Je precise que mon programme marche parfaitement sur un fichier non partagé (mystère).
Voici le bout de code:

Dim rg As Range
Dim lastCol As Integer

Sheets("Devises").Select
 
Set rg = Sheets("Devises").Range("A:A").Find(selectedFund)
 
If rg Is Nothing Then 'ne devrait pas se produire
    Exit Sub
End If
 
lastCol = rg.Offset(0, 200).End(xlToLeft).Column + 1

'supprimer devises désirées
i = 1
Do While rg.Offset(0, i).Value <> ""
If rg.Offset(0, i).Value = Form3.List1.List(List1.ListIndex) Then
    rg.Offset(0, i).Delete Shift:=xlToLeft
    End If
i = i + 1
Loop

Le programme bug sur la ligne :

[CODE]rg.Offset(0, i).Delete Shift:=xlToLeft

[/CODE], message d'erreur :cette commande n'est pas disponible avec un fichier partagé, avec Shift:=xlToLeft de surligné
Merci de votre aide.