Double clique affiche date cellule

Bonjour ,

J'ai obtenus ce code pour pouvoir afficher la date lors d'un double clique sur ma cellule

If Target.Column = 9 Then 'si dble click sur la colonne

Cells(9, 9) = Date 'cellule(i9)

End If

Comment le répéter sans toujours copier ce code ?

Merci cordialement

Bonjour,

Le répéter où ?

Bonjour à tous

A tester en mettant le code dans la feuille concernée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Target.Column = 9 Then
        Cells(Target.Row, 9) = Date
    End If
End Sub