[OK]Sélection de cellules en ref relatives

[Invité]

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!

[philou]

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

@+

[Invité]

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