Salut JM, salut le forum,
Regarde cette macro et adapte-la à ton cas.
Sub Macro1()
Dim deb As Long 'déclare la variable deb
Dim fin As Long 'déclare la variable fin
Dim plage As Range 'déclare la variable plage
If Range("A1").Value <> "" Then 'si A1 est non vide
deb = 1 'définit la variable deb
Else 'sinon
deb = Range("A1").End(xlDown).Row 'définit la variable deb
End If
fin = Range("A65536").End(xlUp).Row 'définit la variable fin
Set plage = Range("A" & deb & ":A" & fin) 'définit la variable plage
plage.Select 'sélectionne la plage
End Sub
À plus,
Robert