With Shapes("bulle1_affectez")
Shapes("bulle1_affectez").Visible = True
.Left = ActiveCell.Offset(, 3).Left + 10
.Top = ActiveCell.Top + 3
If Shapes("bulle1_affectez").Visible = True Then
ActiveSheet.Shapes.Range(Array("bulle1_affectez")).Select
Application.CommandBars("Format Object").Visible = False
Selection.ShapeRange.IncrementLeft -38.5714173228
Selection.ShapeRange.IncrementTop -2.1428346457
Selection.ShapeRange.ScaleWidth 0.8197110362, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.Height = 85.0393700787
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = "Arial"
.NameFarEast = "Arial"
.Name = "Arial"
End With
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 12
End If