Aide pour la modification d'un code VBA qui ne fonctionne pas...

Bonsoir,

J'ai besoin de votre aide... Je n'arrive pas a modifier mon code suivant (qui permet lors du double clique d'afficher la date dans une cellule) déjà existant sur le fichier dans l'onglet PORTEFEUILLE LIVRABLE :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
.Value = Date: Cancel = True
End If
End With
End Sub



Je voulais nommer les colonnes 1,2,3 et 4... mais j'ai un "débogage" a chaque fois...

et 2eme partie :

J'aimerais insérer le code suivant ( qui permet de souligner une ligne d'un classeur ) sur l'onglet PORTEFEUILLE LIVRABLE mais pareil j'ai le droit à un débogage....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub

If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 28
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub


MERCI d'avance pour votre aide