Dim X As Single, Y As Single Dim SW As Long, SH As Long Dim Texte As String Picture1.Visible = False Picture2.Visible = True Picture1.ScaleMode = vbPixels Picture2.ScaleMode = vbPixels Picture1.AutoRedraw = True Picture2.AutoRedraw = True Texte = "Entrez votre texte ici" Picture1.FontName = "tahoma" Picture1.FontSize = 10 Picture1.ForeColor = &H2E2C2D Picture1.BackColor = &HF1F1F1 Picture1.Width = (Picture1.TextWidth(Texte) + 10) * Screen.TwipsPerPixelX Picture1.Height = (Picture1.TextHeight(Texte) + 10) * Screen.TwipsPerPixelY Picture1.Print Texte SW = Picture1.ScaleWidth - 1 SH = Picture1.ScaleHeight - 1 For Y = 0 To SH For X = 0 To SW Picture2.PSet (Y, SW - X), Picture1.Point(X, Y) Next X Next Y