Sub deplacer()
Dim cellule As Range
For Each cellule In Range("B3:F331")
If cellule = Range("date_fin") Then
MsgBox "etiq_1" & cellule
With ActiveSheet.Shapes("etiq_1" & cellule)
.LockAspectRatio = msoFalse
.Left = cellule.Left
.Top = cellule.Top
.Width = cellule.Width
.Height = cellule.Height
End With
End If
Next
End Sub