Mon problème est le suivant:

Si je sélectionne en cliquant sur la cellule A9 et que je descends jusqu'à A11.

j'utilise les formules suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'1ere ligne
LigneDelSupp = ActiveCell.Row
 
'Derniere ligne
Dim str() as string
str = Split(Selection.Rows.Address, "$")
LigneDelInf = str(UBound(str))
LigneDelSupp = 9
LigneDelInf = 11
Comme ça tout fonctionne bien MAIS:

Si je sélectionne en cliquant sur la cellule A11 et que je monte jusqu'à la cellule A9 alors:

LigneDelSupp = ActiveCell.Row qui est égale à 11! et
LigneDelInf = 11!!!!

Comment faire dans ce cas pour que j'aille les bons nombres? Ou avez-vous une autre solution?

Merci bcp!!