pour l insertion j utilisais y a longtemps le code suivant qui ressemble un peut a ce que je veux faire:
AdrCel = 3
Do Until IsEmpty(Cells(AdrCel, 1))
If Cells(AdrCel, 1) <> Cells(AdrCel - 1, 1) Then
Rows(AdrCel).Insert Shift:=xlDown
Range(Cells(AdrCel, 1), Cells(AdrCel, NbCol)).Interior.ColorIndex = 48
AdrCel = AdrCel + 1
End If
Loop
ActiveWorkbook.SaveAs Filename:="C:\test.xls"
Application.ScreenUpdating = True
mais je ne le comprends plus
je me souviens de ce qu il faisait
mais impossible d en comprendre le sens