Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then [COLOR=DarkGreen]'si la sélection (Target)
ne concerne pas la cellule A1[/COLOR]
Range("A1") = Target.Row '[COLOR=DarkGreen]mettre en A1 le numero de la ligne
de la cellule sélectionnée(Target)[/COLOR]
End If
End Sub