Macro sélection de colonne

Bonjour à tous

J'essaye de transformer une macro fonctionnelle qu'on m'avait aidé à faire ici même pour la mettre sur un autre fichier excel

Il s'agit de copier une plage de cellule au format colonne lorsque l'on double clic sur une case (chaque case fera exécuter la macro pour la plage de cellule de sa propre colonne ex : je double clic sur F4 la macro va me copier les cellules de F5 à F120 Si je double clic sur J4 la macro devrait me copier les cellules de J5 à J120 mais ce n'est pas le cas)

Voici ce que j'ai dans ma feuille excel :

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("F4:AB4")) Is Nothing Then
Column = Target.Row
Call Macro1
End If
End Sub

Et voici ce que j'ai dans mon module

Public ligne As Integer
Sub Macro1()
Range("F5" & Column & ":F120" & Column).Copy Sheets("Export").Range("S1")
Sheets("Export").Select

End Sub

Je me trompe peut etre de syntaxe sur la désignation de la colonne où sur la façon de lui montrer la plage à prendre

J'ai essayé en figeant les chiffres mais pas les lettres mais ça ne change rien lors de l’exécution.

Merci d'avance pour vos réponses

Bjr,

corrections tous azimuts !

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("F4:AB4")) Is Nothing Then
colonne = Target.Column
Call Macro1
End If
End Sub

Public colonne As Integer
Sub Macro1()

Sheets("Data").Select
Range(Cells(5, colonne), Cells(120, colonne)).Copy

Sheets("Export").Select
Range("S1").Select
Sheets("Export").Paste

End Sub

Merci pour ton retour

C'est un bouleversement dans le style ^^

Quand je l'applique mon tableur j'ai une erreur sur la ligne

Range(Cells(5, colonne), Cells(120, colonne)).Copy

Avec le message Erreur 1004 Erreur définie par l'application ou l'objet

Mais je ne comprend pas ce qui bloque. Sur la ligne du dessus j'ai bien remplacé le Data par le nom de ma feuille concerné

Autant pour moi j'avais fais une erreur sur la ligne du début

Public colonne As Integer

J'avais laissé ligne au lieu de colonne (surement ce qui me bloqué sur mes essais précédent aussi)

Merci pour la correction ça marche nickel