VBA - test sur sélection multi cellules

bonjour,
ce n'est pas une formule mais ;-)))

Sub zaza()
With Selection
If .Areas.Count > 1 Then
For i = 1 To .Areas.Count
With .Areas(i)
MsgBox "Nbr cellules " & .Cells.Count _
& Chr(10) & "Nbr lignes " & .Rows.Count _
& Chr(10) & "Nbr colonnes " & .Columns.Count _
& Chr(10) & "Adresse " & .Address, , "Plage N°" & i
& "/" & Selection.Areas.Count
End With
Next
Else
MsgBox "Nbr cellules " & .Cells.Count _
& Chr(10) & "Nbr lignes " & .Rows.Count _
& Chr(10) & "Nbr colonnes " & .Columns.Count _
& Chr(10) & "Adresse " & .Address, , "Une seule plage"
End If
End With
End Sub
@+

-----Message d'origine-----
Bonjour à tous,

(sur Excel 2002-VBA)
Quelle est la formule la plus simple pour tester le
nombre de cellules

sélectionnées (1 ou plusieurs) ?
Encore plus fort : peut-on tester si toutes les cellules
sélectionnées sont

dans la même colonne ?
Merci de votre aide.

Isabelle P.


.