Insérer la ligne VBA

Range("b4").EntireRow.Insert
Innocent Impala