Bonsoir Nickal, Tulipe
Bonsoir le forum,
c'est le domaine des formules mais... et VBA alors?
Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("C" & Target.Row & ":N" & Target.Row)) Is Nothing Then
Range("0" & Target.Row).Value = Range("O" & Target.Row).End(xlToLeft).Value
End If
'
Application.EnableEvents = True
'
End Sub
A+