Sélectionner la première cellule d'une ligne ou colonne

Bonjour à tous,

J'ai un petit souci, je souhaiterai sélectionner la première cellule d'une ligne ou d'une colonne en fonction de la position de ma cellule active.

Avec les deux codes ci-dessous, j'ai bien le résultat souhaité si les cellules entre ma cellule active et la première cellule de ligne ou colonne sont vides. Par contre si une cellule sur la trajectoire n'est pas vide, elle est sélectionnée et je souhaiterai quelque soit le cas aller à la première cellule



Sub Première_Cell_Ligne ()
Selection.End(xlToLeft).Select
End Sub

Sub Première_Cell_Colonne ()
Selection.End(xlUp).Select
End Sub

Merci à tous ceux qui auraient une idée