bonjour
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Cells.Count = 65536 And Target.Columns.Count = 1 Then
MsgBox "colonne sélectionnée"
Else
MsgBox "une ou plusieurs cellules sélectionnées"
End If
End Sub
comme on ne sait pas sur quelle version d'excel tu es et donc comme tu peux avoir 65536 ou 166xx lignes, tu peux remplacer 65536 par MsgBox Range("A1", Cells(Columns(1).Cells.Count, 1)).Cells.Count
vous pouvez travailler sur le même principe pour les lignes
bye
stephane