Historique

Bonjour,



J'ai ce code qui met en historique tout mes cellule que change mais j'aimerais mettre seulement la colone L
quelqu'un peut m'aider?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Range
Set col = Columns("L")
If Not Intersect(Target, col) Is Nothing Then
Target.Offset(1, 0).Select
celaddress = Target.Address
colonne = Target.Column
UserForm1.Show
Target.Offset(1, 0).Select
End If
End Sub
Sub test_UserName()
Dim Nom As String
Nom = Environ("USERNAME")
MsgBox Nom
End Sub


Private Sub WorkSheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub
If Target = "" Then Exit Sub
r = Target.Address & ")" & Date & " - " & Target.Value & " - " & Environ("username")
c = Target.Column
With Worksheets("historiques")
dl = .Cells(Rows.Count, c).End(xlUp).Row
If .Cells(dl, c) <> r Then .Cells(dl + 1, c) = r
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1, 9).Value = ActiveCell.Value


End Sub