Bonjour imagines un tableur
147 147-60-JA Modulable Organza Brodé147 en 60 Col Jaune 7,20 €
147 147-60-LI Modulable Organza Brodé147 en 60 Col Lilas 7,20 €
147 147-60-OR Modulable Organza Brodé147 en 60 Col Orange 7,20 €
147 147-60-RG Modulable Organza Brodé147 en 60 Col Rouge 7,20 €
147 147-60-RS Modulable Organza Brodé147 en 60 Col Vieux rose 7,20 €
152 152-60-JA Modulable Organza Brodé152en 60cm col JAUNE 7,50 €
152 152-60-OR Modulable Organza Brodé152en 60cm col ORANGE 7,50 €
152 152-60-RO Modulable Organza Brodé152en 60cm col ROUGE 7,50 €
153 153-60-OR Modulable Organza Brodé153en 60cm col ORANGE 7,50 €
153 153-60-VE Modulable Organza Brodé153en 60cm col VERT 7,50 €
et je veux une ligne entre 147 et 152 puis entre 152 et 153...je dois editer régulierement ces tarifs de 50 pages qui changent!!
merci
Sub Insertion()
Application.ScreenUpdating = False
On Error Resume Next
Cells.Sort Key1:=Range("A2"), _
order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
For AdrCel = 3 To 65536 Step 1
If Cells(AdrCel, 1).Value <> Cells(AdrCel, 1).Offset(-1, 0).Value Then
AdrLig = Cells(AdrCel, 1).Rows.Row
Rows(AdrLig).Insert Shift:=xlDown
AdrCel = AdrCel + 1
End If
If Cells(AdrCel, 1).Offset(1, 0).Value = "" Then
Exit For
End If
Next AdrCel
Application.ScreenUpdating = True