Private Sub CommandButton1_Click()
Dim xcell As Range, X, Y, Haut, larg
On Error Resume Next
Set xcell = Range("b2:g7").Find(Range("k2"), LookIn:=xlValues, Lookat:=xlWhole)
On Error GoTo 0
If xcell Is Nothing Then Set xcell = Range("k2")
With Me.Shapes("Donut 2")
.Left = xcell.Left + (xcell.Width - .Width) / 2
.Top = xcell.Top + (xcell.Height -...