Sub essai()
Dim cel As Range
[COLOR=Blue][B] If Selection.Count = 1 Then[/B][/COLOR]
[COLOR=Blue][B] ligne = ActiveCell.Row[/B][/COLOR]
[COLOR=Blue][B] Else[/B][/COLOR]
For Each cel In Selection.SpecialCells(xlCellTypeConstants)
ligne = cel.Row
...............
...................
........
Next
[COLOR=Blue][B] End If[/B][/COLOR]
..........
.....
......
End Sub