Rectangles qui bouge seul(parfois) a l'ouverture du fichier

bonjour a tousssss

petite question

j ai bricolé une application qui me permets, via du code VBA, de creer des rectangles de dimension relative a des cellules dans le fichiers exel

ci dessous bride de code utilise:

Private Sub CommandButton1_Click()

Workbooks(2).Worksheets(1).Activate

Workbooks(2).Worksheets(1).Unprotect

ActiveWindow.DisplayGridlines = True

With Workbooks(1).Worksheets(1)

For i = 1 To 14

Select Case .Cells(i, 1)

Case "1"

Rectangle .Cells(i, 2), .Cells(i, 3), .Cells(i, 4), .Cells(i, 5)

Case "2"

Rectangle .Cells(i, 2), .Cells(i, 3), .Cells(i, 4), .Cells(i, 5)

Rectangle .Cells(i - 1, 2), .Cells(i - 1, 3), .Cells(i - 1, 4), .Cells(i - 1, 5)

Case "3"

Rectangle .Cells(i, 2), .Cells(i, 3), .Cells(i, 4), .Cells(i, 5)

Rectangle .Cells(i - 1, 2), .Cells(i - 1, 3), .Cells(i - 1, 4), .Cells(i - 1, 5)

Rectangle .Cells(i - 2, 2), .Cells(i - 2, 3), .Cells(i - 2, 4), .Cells(i - 2, 5)

End Select

End With

UserForm2.Hide

Workbooks(1).Close (savechanges = True)

End Sub

Sub Rectangle(x1, y1, x2, y2)

Set rect = ActiveSheet.Shapes.AddShape(msoShapeRectangle, x1, y1, (x2 * 0.4), y2)

rect.Fill.Transparency = 0

rect.Fill.ForeColor.SchemeColor = 4 'couleur fd bleu

rect.Line.ForeColor.SchemeColor = 0

rect.TextFrame.Characters.Font.Color = vbWhite 'couleur ecriture en blanc

rect.Placement = xlMove

rect.Select

With Selection

.Name = "etiquette " & UserForm1.TextBox9.Value

.Text = UserForm1.TextBox9.Value & "-" & UserForm1.TextBox1.Value & UserForm1.TextBox2.Value

End With

bref...

je reviens a ma question...

les rectangles ainsi créer sont positionner a la main sur le fichier excel (souhait de ma part) - on enregistre ainsi.

bizarrement il arrive parfois que lors de l'ouverture du fichier excel les rectangles ont légèrement bougés.

suis je tout seul a connaitre se bug (si s en est un...) et y a t il un moyen de l'eviter? <= c est ma question

merci pour votre intérêt.