Sub créer_zone_texte10_10()
LargeurCm = 10 'Définit la largeur en Cm
LongueurCm = 10
LargA4_Pt = 21 * 28
LongA4_Pt = 29.7 * 28
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, LargA4_Pt, LongA4_Pt).Select
LargPt = LargeurCm / 0.0352778 'convertit en point
LongPt = LongueurCm / 0.0352778
PosLar = 0
PosLong = 0
LargTotal = LargPt
LongTotal = LongPt
While LargTotal <= LargA4_Pt And LongTotal <= LongA4_Pt
' créer_zone_texte Macro
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, PosLar, PosLong, LargPt, LongPt).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 27
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.Characters.Text = "Taille: " & LargeurCm & "cm X " & LongueurCm & "cm"
PosLar = PosLar + LargPt
If PosLar + LargPt > LargA4_Pt Then
PosLar = 0
LargTotal = 0
PosLong = PosLong + LongPt
LongTotal = LongTotal + LongPt
End If
LargTotal = LargTotal + LargPt
Wend
End Sub