re bonjour,
pour la recopie de formule suivant une date en colonne A, essaye ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim verif As Boolean
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
verif = IsDate(Target)
If verif = True Then
Target.Offset(0, 8).Formula = "=O"
End If
End If
End Sub
bonsoir
Hervé