Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim o As Object
If Intersect(ActiveCell, [B13:H18]) Is Nothing Then Exit Sub
Set o = DrawingObjects("Rectangle : coins arrondis 33")
If UBound(Split(o.Text, " - ")) = 3 Then o.Text = "": Exit Sub
If ActiveCell <> "" Then o.Text = IIf(o.Text = "", "", o.Text & " - ") & Format(ActiveCell, "dd/mm/yy")
End Sub
Sub RAZ()
'se lance en cliquant sur "Date(s) de formation"
DrawingObjects("Rectangle : coins arrondis 33").Text = ""
End Sub