Sub InsereLigne()
Dim DATA As Worksheet
Dim i As Integer
'bon on va travailler sur la feuille
'active au moment du lancement
Set DATA = ActiveSheet
DATA.Cells(3, 1).EntireRow.Insert Shift:=xlShiftDown ' Insertion ligne'
DATA.Range("A3:N3").Interior.Color = xlNone ' Sans couleur'
i = 3 ' indice commence en 3
While DATA.Cells(i, 8) <> ""
.......