Erreur 91

Bonjour,

Je souhaite créer une macro sur excel 2010 qui m'affiche le nom de l'expediteur, la date d'envoie du mail, le nom de la pièce jointe; à partir d'un mail sélectionné dans Outlook.

Cependant, une erreur 91 est repéré concernant la ligne en gras ci dessous:

Sub test()

Dim OutApp As Object, Ligne As Long, Chrono As String, Desti, Lig As Long, Fich
Application.ScreenUpdating = False

Set OutApp = CreateObject("OutLook.Application")

With Sheets("Feuil1")

For Each Item In OutApp.ActiveExplorer.Selection
Ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
Chrono = .[A:A].Find("*", , , , xlByRows, xlPrevious).Value
If Not IsNumeric(Right(Chrono, 4)) Then
.Cells(2, 1) = "Chrono0001"
Else
.Cells(Ligne, 1) = "Chrono" & Format(CInt(Right(Chrono, 4)) + 1, "0000")
End If
.Cells(Ligne, 3) = Item.ReceivedTime
.Cells(Ligne, 4) = Item.Sender
.Cells(Ligne, 5) = Item.Subject
Lig = Ligne - 1
For Each Desti In Item.Recipients
Lig = Lig + 1
.Cells(Lig, 6) = Desti.Address
Next Desti
Lig = Ligne - 1
For Each Fich In Item.Attachments
Lig = Lig + 1
.Cells(Lig, 7) = Fich.Filename


Next Fich
Item.SaveAs "C:\temp\" & .Cells(Ligne, 1) & ".msg", olMSG

Next Item

End With

Application.ScreenUpdating = True
End Sub



Est-il possible que quelqu'un me vienne en aide svp?

Merci d'avance :)