Bonjour à tous,
Jean Louis, d'après le titre de ton post tu utilises CurrentRegion, donc dans ton exemple il va te selectionner tes 10 1eres lignes...
Si ta 2 eme colonne est vide à partir de la ligne 4, utilises plutot
Sheets("Le nom de ta feuille").Range("B65536").End(xlup).row pour récupèrer la derniere ligne non vide de ta colonne B....
A++++