Bonjour,
Il te faut passer par VBA. Voici une proposition de code à placer dans un module (ALT + F11 pour aller à VBA puis faire Insertion / Module)
Sub insertion()
'Macro Dan pour Didan le 18/08/2010
If Not Intersect(ActiveCell, Range("B5:B" & Range("B65536").End(xlUp).Row)) Is Nothing Then
ActiveSheet.Unprotect ""
With ActiveCell
.EntireRow.Insert
.Offset(-1, 2).FormulaR1C1 = .Offset(-2, 2).FormulaR1C1
End With
ActiveSheet.Protect ""
End If
End Sub
Associe ce code à un bouton à dessiner sur ta feuille via la barre d'outils Formulaire ou Dessin qui sont disponibles dans Affichage / Barre d'outils.
Pour ajouter une ligne, positionne toi en colonne B puis clique sur le bouton que tu auras dessiné.
Amicalement