[XL-2010] Adresse de cellules Erreur d'exécution sujet

Bonjour à tous,

Après avoir passé pas mal de temps à chercher un peu partout sur internet sans résultat, je vous appelle à l'aide.

J'ai pris l'habitude de toujours écrire mon code comme ci-dessous (je trouve que ça limite les erreurs)

Code:

---

If Workbooks(Fill_Name).Sheets("Import").Left(Cells(A + 1, 2), 1) = Type_point Then

---

Le problème apparait lors de l'exécution du code. Il m'indique des erreurs (Erreur d'exécution '438' ou '1004').

Par contre lorsque le code est écrit de la façon suivante, aucun soucis

Code:

---

1 2 3

Workbooks(Fill_Name).Activate Sheets("Import").Select Left(Cells(A + 1, 2), 1) = Type_point

---

Je ne comprends pas du tout pourquoi ça plante. Si quelqu'un pouvait éclairer ma chandelle ce serait génial.

Merci d'avance