Sub ajout_article()
'
' ajout_client Macro
' Macro enregistrée le 16/12/2006 par Mourmant
'
Application.ScreenUpdating = False
For Each cellule In Range("maplage")
With Sheets("Clients")
.Activate
Set c = .Range("Article").Find(cellule)
If c Is Nothing Then
.Rows("2:2").Insert Shift:=xlDown
.[A2] = cellule
.Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End With
Sheets("nouveau").Activate
Next cellule
End Sub