J'ai des données dans la plage A1:Xn, X et n étant variables. Cette plage est entourée de cellules vides. Je voudrais sélectionner en VBA la plage A2:Xn. Autrement dit, je voudrais enlever la première ligne de la zone en cours définie depuis A1.

Cette formule fonctionne, que toutes les cellules de la plage à tester soient remplies ou si seules quelques cellules de la plage sont renseignées.
Par exemple, si seules les cellules A1, B6 et C3 sont remplies. cette formule renverra la plage A2:C10:
Range("A2", Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns, xlPrevious).Column)).Select
Si toutes les cellules sont renseignées dans la plage :
With Range("A1")
.CurrentRegion Intersect(.Offset(1), .Cells).Select
End With