bonjour, voici le code en question
Sub Bouton32_QuandClic()
Dim p As Range, c As Range, M_essage$
Set p = Sheets("feuil2").Range("d5:d20").SpecialCells(xlCellTypeConstants, 23)
For Each c In p
M_essage = M_essage & c & vbLf
Next
MsgBox M_essage, vbInformation, "- INFORMATIONS -"
End Sub...