Informatique Pratique

Je n'arrive pas a faire une sélection en partant de la dernière cellule non-vide d'une colonne. J'utilse Offset() pour trouver la cellule voisine, mais mon but est de sélectionner les 5 cellules voisines sur la même ligne et les sélectionner.
Voici une partie de ma macro :
'positionnement dans la colonne
Range("AD5000").Select
'recherche la dernière cellule non vide de la colonne
Selection.End(xlUp).Select
'sélection des 5 cellules
Range("AD4:AJ4").Select
'copier la sélection
Selection.Copy
'coller les valeurs seules
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

C'est cette valeur absolue que je voudrais avoir en relative pour répéter la macro sur les lignes suivantes qui s'incrémenteront.
Range("AD4:AJ4").Select

Merci d'avance si quelqu'un veut bien m'aider.
Et aussi, je ne sais pas trouver la première cellule vide ou non vide d'un colonne en partant du haut!

Salut,

'déclarer une variable
Dim x As Variant
'recherche de la ref. ligne dernière cellule pleine
x = Range("AD65536").End(xlUp).Row
'comme les 5 cellules voisines de AD sont ...
Range("AE"& x & ":" & "AI" & x).Select

le reste, je pense que à§a devrait aller


pour la 1° cellule vide d'une colonne voici un exemple tiré d'une macro de je ne sais plus o๠....

Sub test()

Application.ScreenUpdating = False
ActiveSheet.Range("AD1:AD5000").Select
marecherche:
On Error GoTo lafin
Selection.Find("", after:=ActiveCell).Select
If ActiveCell.Value <> "" Then GoTo marecherche
End
Application.ScreenUpdating = True
lafin:
MsgBox "Toutes les cellules sont pleines !"
End Sub

@+

Merci Philou pour ces explications.
Je pense pouvoir m'en sortir avec ces deux codes.