Aller à la dernière cellule VBA

Bonjour

J'ai 2 question svp si vous pouvez m'aider:
1/J'aimerai aller à la dermière cellule de la colonne A et selectionner toute la plage traversée
j'ai utilisé le code Range("A1").End(xlDown).Select mais il va uniuqement chercher la dernière cellule de la colonne 

2/j'aimerai pouvoir aller à la dernière cellule (même s''il y a des cellules vides au milieu de la colonnne B), pouvoir selectionner la plage, et également detecter s'il y a des cellules vides (isempty)

un grand merci d'avance

bien cordialement

Hello,

1)x = Range("A" & rows.Count).End(Xlup).row
Range("A1:A" & x).select

2)x = Range("B" & rows.Count).End(Xlup).row
y =0
y = Application.WorksheetFunction.Countifs(Range("B1:B" & x),"")
if y = 0 then 
msgbox("pas de vide") 
else 
msgbox("Il y a du vide")
End if

Essaie ça j'ai pas testé mais ça devrait t'aider

@+

Bonjour à tous,

Une variante:

Sub test()
 Dim dl%, plage As Range
  With Sheets("Feuil1") 'nom à adapter
   dl = .Range("A" & Rows.Count).End(xlUp).Row
   Set plage = .Range("B1:B" & dl)
    nb = Application.WorksheetFunction.CountBlank(plage)
     MsgBox nb & " cellule(s) vide(s)" & Chr(10) & "en colonne B"
  End With
End Sub

Cordialement,

un grand merci à tous les 2

les 2 méthodes fonctionnent :)

Re,

Merci pour le retour et pour avoir passé le sujet en résolu,

Bonne continuation,

Cordialement