Bonsoir,
La fonction CurrentRegion est bien mais, si par malheur, le tableau contient une cellule vide, plantage !!!
Pour ma part, je préfère ceci :
Si ton tableau se trouve, par exemple, dans la plage A1:C10, il faut trouver la dernière cellule d'une des colonnes n'ayant aucune cellule vide (CAD, dans l'exemple, dans la colonne A, la ligne 10) :
Dim DerLigne as Long
DerLigne=Sheets("feuil1").Cells(65536,1).End(xlup).Row
'Nota : la fonction Cells(NumLigne,NumColonne)
'Le NumColonne étant a modifié en fonction de son tableau
Puis, pour sélectionner la plage entière :
Sheets("feuil1").Range("A1:C" & DerLigne).Select
@+
Ronan