Sub AjouterLigne()
If IsError(Application.Caller) Then Exit Sub 'sécurité
With Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 3)
.Insert
.Copy .Rows(0)
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(xlCellTypeConstants) = ""
End With
End Sub