Bonsoir,
je vais essayer,
Private Sub Worksheet_Change(ByVal Target As Range)
quand la sélection change dans la colonne 1 où A
If Target.Column = 1 Then
si la sélection se fait dans la colonne 1 donc A et pas ailleur
Target.Offset(0, 1) = Date
la sélection étant correct ,je décale où je confirme en décalant la sélection d'une colonne et la je mets la date
End If
Suis je clair.
A +