Microsoft 365 Extraire le nº de colonne

[Markotxe]

Bonsoir,
J'essaie de copier/coller une cellule (Range("J2")) sur la première cellule vide d'une colonne (qui ,elle ,peut varier).

Jusque là ça va... d'autant plus que j'ai presque tout..., (la cellule de départ, la cellule d'arrivée et la formule "qui va bien" pour copier/coller l'une vers l'autre)
Sauf que je suis incapable de soutirer le numero de la colonne ciblée (Localisée avec la fonction Find) pour ensuite pouvoir l'exploiter dans un copier/coller End(xlUp) classique.
Je suis certain que c'est tout bête et pourtant, je bloque...


Voici le code utilisé

Sub Partiel() ''''' Oulah'''''
Dim J As Range
Dim C As Range

'J est la cellule qui occupe les données qui seront exportées
Set J = Worksheets("Feuil3").Range("J3")

'C est la cellule située sur la colonne de destination
Set C = Worksheets("Feuil3").Range("13:13").Find([J2], _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Offset(3, 1)
'essais non concluants... avec...ActiveCell.Column '.EntireColumn

'Code a utiliser une fois définit le nº ou la lettre de la colonne (4 est un exemple)
 J.Copy (Worksheets("Feuil3").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)) '''''Range("D" & Rows.Count) peut être une autre option.
  
End Sub

Merci pour votre attention.

 

[Dranreb]

Bonsoir.
Le numéro de colonne de C c'est tout simplement C.Column
Donc :

J.Copy Worksheets("Feuil3").Cells(Rows.Count, C.Column).End(xlUp).Offset(1, 0)

 

[Markotxe]

Bonsoir Dranreb,
C.Column… Tout simplement...
(boh, boh, boh, j'ai honte)

En tout cas, merci beaucoup ça marche évidemment parfaitement!