[Hervé]

bonjour

le fond de ma pensée en macro (bonne idée malcy, la kro, tiens je vais m'en chercher une).

à la votre.

Sub Bouton1_QuandClic()
Dim t5(3)
Dim t$
Dim i%, j%

t5(0) = Array(172, 222, 234, 230, 64, 194, 236, 202, 244, 64, 236, 228, 194, 210)
t5(1) = Array(218, 202, 220, 232, 64, 228, 210, 202, 220, 64)
t5(2) = Array(200, 78, 194, 234, 232, 228, 202, 230, 64, 448)
t5(3) = Array(64, 204, 194, 210, 228, 202, 64, 126, 64, 152, 158, 152)

For i = 0 To 3
    For j = 0 To UBound(t5(i))
    t = t & Chr((t5(i)(j)) / 2)
    Next j
Next i

MsgBox t

End Sub

salut