Sub Macro()
Dim x$, i As Variant
x = InputBox("Code article :")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
MsgBox "Fiche retirée de la semaine " & Cells(i, "I")
Rows(i).Delete
Else
If MsgBox("Fiche non présente, voulez-vous ajouter l'article ?", 4) = 7 Then Exit Sub
With [A:A].Find("", , xlValues)
.Value = x
.Resize(, 9).Borders.Weight = xlThin 'bordures
End With
End If
End Sub