Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Range("A" & ActiveCell.Row).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si la colonne de la cellule sélectionnée est supérieure à 1, sélectionne la cellule en colonne A de la même ligne
If Target.Column <> 1 Then Cells(Target.Row, 1).Select
End Sub
Cells(Target.row, 1).Select