Sub Inserer()
' Si la cellule active est en colonne 1 (A)
If ActiveCell.Column = 1 Then
' on insère deux cellules
ActiveCell.Resize(, 2).Insert xlShiftDown
' Copie de la cellule B1
Range("B1").Copy
' Collage de la formule de b1 dans la nouvelle ligne
ActiveCell.Offset(, 1).PasteSpecial xlPasteFormulas
End If
End Sub