Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("DATAS")) Is Nothing Then
Application.Names.Add "LigneActive", Target.Row
Application.Names.Add "ColonneActive", Target.Column
Else
Application.Names.Add "LigneActive", 0
Application.Names.Add "ColonneActive", 0
End If
End Sub