Erreur 13 incompatibilité de type

Bonjour,

j'ai ce code qui, lorsque je clique sur le bouton 5, ouvre une Msgbox, demandant de confirmer l'envoi de mails

La macro envoyant les mail se situe dans la feuille 1, et se nomme Envoi_Mail.

Sub bouton4_click()

Dim Msg, Style, Title, Response
Msg = "Souhaitez-vous continuer?"    ' Définit le message.
Style = vbYesNo + vbExclamation + vbDefaultButton2    ' Définit les boutons et le style.
Title = "Confirmation envoi mails "    ' Définit le titre.

' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then   ' si l'utilisateur choisi oui,
Application.Run "Feuil1.Envoi_mail"
Else ' L'utilisateur a choisi Non.
End If
End Sub

Tout fonctionne bien, mais j'ai un message "Erreur 13: incompatibilité de type", qui s'ouvre à la fin de l'exécution de la macro.

Pouvez-vous, s'il vous plait, m'aider à trouver mon erreur ???

D'avance, merci.

Bonsoir,

C'est apparemment ta macro 'Envoi_mail' qui génère l'erreur.

Cdlt.

voici le code de ma macro Envoi_mail:

Private Sub Envoi_mail()

    Set OutApp = CreateObject("Outlook.Application")    'sinon prend client par défaut

    For Each cel In Range(Cells(3, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))    'boucle de chgt de ligne
       fi = cel(1, 2).Value     'fiche individuelle même ligne, colonne 2

        Set objmessage = OutApp.CreateItem(0)   'création du message
        With objmessage
            .Subject = "Fiche individuelle de Janvier"    'Sujet
          .To = cel.Value    'Email du destinataire
          .Body = "Bonjour," 
            .attachments.Add fi     'fiche idividuelle en PJ

            .display 'remplacer par .send pour envoyer message

            'boucle d'attente de 3 secondes entre chaque mail
            newHour = Hour(Now())
            newMinute = Minute(Now())
            newSecond = Second(Now()) + 3
            waitTime = TimeSerial(newHour, newMinute, newSecond)
            Application.Wait waitTime

       End With
        Set objmessage = Nothing

    Next
End Sub