Re Joe !
Quelques petites précisions :
En fait si tu ne connaissais pas, aussi, le nombre de colonnes, ta macro aurait été :
Sheets("Tableau").Select
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
bal bala bla...
Les "Range(Selection, Selection.End(xlDown)).Select et (xlUp) et (xlToRight)
et(xlToleft)", s'arrêtent à la dernière cellule pleine.
Donc il est important que ces commandes soit utilisées avec des tableaux sans colonnes ou lignes vides.
@ +
Moa