Macro pour reporter une valeur sur double click

Bonsoir à tous,

Lecteur du forum depuis longtemps, je n'ai pas trouvé la réponse à un probleme que j'ai actuellement.

Je cherche un moyen de reporter la valeur du titre d'une colonne par un double click dans une des cellules de cette colonne.

Pour etre plus clair : j'ai une colonne ou mon titre va être une date, je souhaite que lorsque je vais double cliquer sur une cellule de cette colonne la date entrée se reporte automatiquement.

Concretement mon tableau s'etend sur la plage K6 à DM25 et les valeurs que je souhaite reporter seront rentrées sur la ligne 3.

Merci par avance a tous pour votre aide.

Bon reveillon à tous

Je rajoute en piece jointe un fichier type pour etre plus clair.

A savoir que dans mon fichier global, je souhaite que cette règle soit applicable sur plusieurs onglets identiques à celui ci.

Bonjour

Code à placer dans le module ThisWorkbook

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

  Select Case Sh.Name
    Case "Non", "Oui", "Pas celle ci" ' Liste des pages à exclure
    Case Else
      If Not Intersect(Range("K3:DM25"), Target) Is Nothing Then
        Cancel = True
        With Target
          .Value = Cells(3, Target.Column)
          .NumberFormat = "m/d/yyyy"
        End With
      End If
  End Select
End Sub

A la place de "Non", "Oui", "Pas celle ci", mets les vrais noms des feuilles à exclure

Merci beaucoup ca fonctionne parfaitement.

Bien cordialement

Sébastien