Set F3 = Worksheets("Feuil3")
Set F1 = Worksheets("Feuil1")
If Not modif Then
F3.Rows(lig).Insert Shift:=xlDown
F3.Rows(lig).Font.ColorIndex = 1
Else
A = Array("H10", "I12", "C14", "C15", "C16", "C17", "G14", "G15", "G16", "G17")
For i = 0 To UBound(A)
F3.Cells(lig, i + 1) = F1.Range(A(i))
Next
End If