Salut,
pas mieux que Gmb, forcément!
If Range("K" & Li + 1).Value <> "" Then
'On crée une nouvelle ligne pour une prochaine évolution tarifaire
Range("K" & Li + 1 & ":P" & Li + 1).Insert shift:=xlDown
End If
(code provenant d'une de mes feuilles où j'insère une ligne de quelques cellules dans un cadre bien défini!)
Tu testes une valeur quelconque (dernière ligne, présence ou non d'une valeur à tel endroit par rapport à ta position de saisie) et en avant!
A+