Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox Target.Cells.Count
End Sub
If Target.Columns.Count = Columns.Count And Target.Rows.Count = 1 Then
MsgBox "ligne " & Target.Row & " entière sélectionnée"
End If