Microsoft 365 copier coller avec un double clic

[komarlehomard]

Bonjour à tous,
Sur le fichier joint je voudrais copier la valeur de cellule sur la feuille index sur la plage D1224 juste après un double clic et la coller sur la cellule k16 de la feuille fiche indiv.
Il me faudrait un collage spécial car j'ai des formules de recherche sur ma cellule copié.
J'ai farfouillé sur les forums mais je n'arrive pas à adapter les codes vba à mon cas.
Vraiment merci d'avance pour le temps que vous allez m'accorder.

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @komarlehomard
Avec ce code qui fonctionne pour la plage D13 : D24 et pour une seule cellule à la fois :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Count = 1 And Not Intersect(Target, Me.[D13:D24]) Is Nothing Then
         'Si le Code Name de la feuille "fiche indiv" est "feuil6"
          Feuil6.[K16] = Target
          Cancel = True
     End If
End Sub

Voir le fichier en PJ
Amicalement
Alain

 

[komarlehomard]

Bonjour Alain
Merci beaucoup ça fonctionne très bien et grâce à ta petite annotation, j'ai compris l'erreur que je faisais.
Encore un kilos de merci pour le temps que tu m'as accordé

 

[AtTheOne]

Bonsoir @komarlehomard
Merci pour ton retour, si c'est bien la solution tu peux marquer le post 2 comme étant la solution.
Amicalement
Alain