J'ai trouvé comment faire mais cela ne doit pas être optimal
Sub Ligne()
a = Cells.Find("Tbl(1)", , xlValues).Row
Range("A" & a & ":T" & a).Insert Shift:=xlDown
Cells(a, 4) = Cells(a + 1, 4)
Cells(a, 5) = Cells(a + 1, 5)
Cells(a, 8) = Cells(a + 1, 8)
Cells(a, 9) = Cells(a + 1, 9)
Cells(a, 12) = Cells(a + 1, 12)
Cells(a, 13) = Cells(a + 1, 13)
Cells(a, 14) = Cells(a + 1, 14)
Cells(a, 15) = Cells(a + 1, 15)
Cells(a, 19) = Cells(a + 1, 19)
Cells(a, 20) = Cells(a + 1, 20)
End Sub
Par contre, cela copie des valeurs et non les formules. J'aimerai copier les formules sur la ligne insérée, c'est possible?