copie cette Procédure dans un module de ton fichier, puis appelle-là
Sub ConcatenerLesChaines()
Dim Message As String, Boutons As Single, Titre As String
Message = "Le nom du document actif est " & Chr(34) & _
ActiveWorkbook.Name & Chr(34) & "."
Boutons = vbInformation + vbOKOnly
Titre = "Concaténation de chaînes"
MsgBox Message, Boutons, Titre
End Sub