Export de MessageBox vers fichier

Bonjour,

Je recherche le moyen d'exporter dans un fichier excel le résultat de recherche d'une macro.

J'affiche parfaitement ma recherche dans un message Box,

mais impossible à exporter dans un fichier.

ci-joint ma msg box:

msgbox ("trouvé '/' en " & coul & " sur la feuille " & sh.name & " à l'adresse " & c.adress(0, 0))

si quelqu'un à un peut de temps pour m'aider,

Merci de votre aide.

Bonjour

Voici un exemple de Msgbox qui transfer un message dans une feuille

Sub test1()

Dim Msg, Style, Title, Reponse

Msg = "Souhaitez-vous continuer?" ' Définit le message.

Style = vbYesNo + vbDefaultButton2 ' Définit les boutons.

Title = " Test MsgBox " ' Définit le titre.

' Affiche le message.

Reponse = MsgBox(Msg, Style, Title)

If Reponse = vbYes Then ' L'utilisateur a choisi Oui.

[A1] = Msg

Else ' L'utilisateur a choisi Non.

[A1] = ""

End If

End Sub

Merci,

je vais implémenter et tester.

Bonne journée.

Sayan92