Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [Tableau1[Nombre articles]]) Is Nothing Then
If Target = 0 Then
Ligne = 1 + Target.Row - [Tableau1].Row
[Tableau1].Item(Ligne, 5).ClearContents
End If
End If
Fin:
End Sub