Un petit essai dans le fichier joint:
une formule en C2
un peu de code dans le module de la feuille "Feuil1":
VB:
Private Sub Worksheet_Calculate()
Dim Shp As Shape
For Each Shp In Shapes
If Shp.TopLeftCell.Address = Range("d3").Address Then Shp.Delete
Next Shp
Cells(2 + Range("B2"), "j").Copy Range("d3")
End Sub
Un petit essai dans le fichier joint:
une formule en C2
un peu de code dans le module de la feuille "Feuil1":
VB:
Private Sub Worksheet_Calculate()
Dim Shp As Shape
For Each Shp In Shapes
If Shp.TopLeftCell.Address = Range("d3").Address Then Shp.Delete
Next Shp
Cells(2 + Range("B2"), "j").Copy Range("d3")
End Sub