Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [g7:cz114] 'champ de mon tableau
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseur").Visible = True
If Err <> 0 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1, 1).Name = "curseur"
End If
Shapes("curseur").Fill.Solid
Shapes("curseur").Fill.ForeColor.SchemeColor = 14
Shapes("curseur").Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes("curseur").Top = champ.Top
Shapes("curseur").Left = ActiveCell.Left - 3
Shapes("curseur").Left = Cells(4, 2 + Date - [g6]).Left ' je comprends pas très bien ces valeurs
Shapes("curseur").Height = champ.Height
Shapes("curseur").Width = 3
Else
On Error Resume Next
Shapes("curseur").Visible = False
End If
End Sub