Salut JP,
et moi, je ne sais pas où il faut copier les valeurs car...
Range(Cells(7, .Column), Cells(514, .Column)).Value = Range(Cells(7, .Column), Cells(514, .Column)).Value
... copie sur elles-mêmes les valeurs des cellules rencontrées dans la colonne sélectionnée!!!
Autre chose bizarre : tu sembles vouloir limiter ta boucle à 514 mais une des plages court de 728 à 815!!!
Dans le code corrigé ci-dessous, la macro copie en colonne [A] les valeurs rencontrées toutes les 3 lignes dans les plages successives de la colonne sélectionnée par un double-clic.
Tu peux changer la colonne de destination des copies ici, en changeant 1 (A) par ce qui est nécessaire.
Cells(y, 1) = Cells(y, iCol)
Code à coller tel quel dans le module de la feuille concernée.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
iCol = Target.Column
'
For x = 1 To 4
x1 = Choose(x, 8, 223, 324, 728)
y1 = Choose(x, 95, 310, 411, 815)
For y = x1 To y1 Step 3
Cells(y, 1) = Cells(y, iCol)
Next
Next
'
End Sub
J'attends tes précisions quant à la destination des valeurs à copier en fonction de la colonne sélectionnée.
A+