Insertion d'une nouvelle ligne après B4

Bonjour

J'ai créé un tableau en mettant cette formule pour toujours avoir la nouvelle ligne en haut qui fonctionne bien :

Private Sub CommandButton1_Click()

Rows("2:2").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromOrAbove

End Sub

Par contre sur mon 2 ème tableau je voudrais que la ligne vide que je dois saisir est d'après B4 car au dessus je dois y mettre plusieurs écriture et donc la formule çi dessus ne fonctionne pas de cette façon , auriez vous une modif ou une autre formule à me proposer pour que ça fonctionne ?

Merci d'avance , Phil .

Bonjour

si j'ai compris ton besoin!!

Private Sub CommandButton1_Click()
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromOrAbove
End Sub

Merci Bruno

J'avais testé cette formule mais elle me renvoyait toujours en 2ème ligne donc au dessus de mes titres mais c'est normal les autres lignes étaient vide donc elles repartaient sur du non vide , du coup en mettant du texte sur mes lignes vides ça fonctionne nickel , j'apprends pas à pas donc merci de vous être penché sur mon petit soucis .

Phil .

Re

Tu sais tout le monde à apprendre des autres,

il est impossible de tout savoir et les forums nous permettent de partager, d’ouvrir l’esprit et pour cela nous devons les faire vivre