Insertion de ligne après click sur cellule

Bonjour à tous!!

Un petit coup de main!! je cherche une macro qui me permette en cliquant sur une cellule, d'insérer automatiquement une ligne en dessous de la cellule choisie.... Est ce possible?

Merci de votre aide!!

Bonjour samsam07 et au forum

Sub InsertLign()
  ActiveCell.Offset(1).Resize(1, 1).EntireRow.Insert
End Sub

Un grand Merci et1000lio!!!

Rapide, court et fonctionnel... tout ce que j'aime^^

Bonne journée à toi

En relisant ton sujet je me suis aperçu que tu souhaitais déclencher l'insertion de la ligne via un clic sur une cellule de ta feuille.....

Donc voici la solution mais avec un double clic.

Code à mettre dans feuille concernée si tu ne souhaites pas que cela se déclenche sur les autres feuilles du classeur.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Offset(1).Resize(1, 1).EntireRow.Insert
End Sub

oui effectivement.... c'était pour un gain de tps!! Mais du coup j'avais créer un petit bouton qui va bien, auquel j'avais insérer ta macro^^ et c'était déjà pas mal!!

Merci encore pour le temps que tu m'as consacré et je vais tester ta nouvelle macro!!