bonjour, j'ai fait ce code, mais chaque fois que lance ma macro il plante et me met des dates dans toutes les cellules.
je précise que je colle des données en provenance d'un autre classeur.
pour éviter de "pourrir" mon classeur j'ai désactivé le code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
On Error Resume Next
If Not Application.Intersect(Target, Range("n:n")) Is Nothing Then 
    Application.EnableEvents = False
    If Target = "Action coté BE" Then Target.Offset(0, 1) = Date
    If Target = "Action coté Fournisseur" Then Target.Offset(0, 7) = Date
    If Target = "Action coté Qualité" Then Target.Offset(0, 5) = Date
    Application.EnableEvents = True
End If