Pblm code sur fichier dans macro VBA

Bonsoir,
J'ai un problème concernant le fichier 7.5 JV ins. financier.
Il y a un bug dans la macro car elle n'arrive pas à le lire et je ne parviens pas à la modifier.

Le message d'erreur porte sur la ligne 13

Code:

---

If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then

---

Pourriez vous svp m'aider
merci pour votre aide

Bonsoir,

sans avoir regardé le fichier, essaies comme ça :

Code:

---

If LastCell.Value = "" And LastCell.Address = "$A$1" Then

---

Bonsoir,

En faisant le test avec la macro et le fichier, il semble que l'initialisation de LastCell retourne Nothing.

Code:

---

Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

---

En faisant le test suivant, le problème doit être corrigé.

Code:

---

1 2 3 4 5

If Not LastCell Is Nothing Then If LastCell.Value <> "" And LastCell.Address <> Range("A1").Address Then WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If End If

---