Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
edit :CommandBars("Cell").Enabled = Not CommandBars("Cell").Enabled
Valeurs = Array("2", "3", "4", "6", "CA", "F")
If Target.Column <= 7 And Not Target.Row = 1 And Target.Row <= 10 Then
Select Case NbClic
Case 0 To 5
Set c = ActiveCell
Set shp = ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, c.Left, c.Top, c.Width, c.Height)
shp.BlackWhiteMode = msoBlackWhiteBlack
With shp.TextFrame
.Characters.Text = Valeurs(NbClic)
.Characters.Font.Size = 11
.Characters.Font.Superscript = True
End With
shp.Line.Visible = msoFalse
shp.Fill.Visible = msoFalse
End Select
End If
NbClic = NbClic + 1
If NbClic > 5 Then NbClic = 0
End Sub