savoir si la selection est une ligne

Sub Macro1()
Dim li As Long 'déclare la variable li
Dim cel As Range 'déclare la variable cel

If Selection.Cells.Count = 256 Then 'condition 1 : si le le nombre de cellules sélectionnées est = 256

li = ActiveCell.Row 'définit la variable li

For Each cel In Selection 'boucle sur toutes les cellules de la sélection

'condition 2 : si le numéro de ligne de la cellule cel est différent de li
'sort de la procédure
If cel.Row DIFFÉRENT_DE li Then Exit Sub

Next cel 'prochaine cellule de la selection

'Ta macro ici...

End If 'fin de la condition 1

End Sub

Cliquez pour agrandir...