Problème ajout nouveau contact outlook

Bonjour,

Je reviens vers vous car depuis plusieurs jours j'essaie de me servir d'un fichier excel pour ajouter un contacter et l'envoyer par mail en pièce jointe mais cela ne fonctionne pas....

Sur l'ordinateur de mes collègues cela fonctionne.

J'ai comme message:

Erreur d'exécution '-2147417851 (80010105)':

La méthode 'LastName' de l'objet '_ContactItem' a échoué

Le débogage me renvoie sur cette ligne de code ci-dessous (surligner):

'''Création de la fiche Outlook avec les données saisies
            Dim i&, olApp As Object, olItem As Object
            i = 3
            Set olApp = CreateObject("Outlook.Application")
            Set olItem = olApp.CreateItem(olContactItem)
            While olApp.Explorers.Count <= 0    'Teste si Outlook est ouvert
                If MsgBox("Vous devez ouvrir Outlook pour continuer.", vbExclamation + vbRetryCancel) = vbCancel Then
                    GoTo fin
                End If
            Wend
            With olItem
              .LastName = Cells(i, 1)
                .FirstName = Cells(i, 2)
                .HomeAddressStreet = Cells(i, 3)
                .HomeAddressPostalCode = Cells(i, 4)
                .HomeAddressCity = Cells(i, 5)
                .CompanyName = Cells(i, 6)
                .JobTitle = Cells(i, 7)
                .BusinessTelephoneNumber = Cells(i, 8)
                .MobileTelephoneNumber = Cells(i, 9)
                .BusinessFaxNumber = Cells(i, 10)
                .Email1Address = Cells(i, 11)
                .Save
            End With

            '''Partage du nouveau contact
            Dim Mail As Object
            On Error GoTo fin
            Set Mail = Outlook.CreateItem(olMailItem)

D'avance merci pour votre aide.