Sub zzzzzzzzz()
Columns(6).NumberFormat = "@" 'la colonne est au format nombre à l'origine
For Each sh In ActiveSheet.Shapes
With sh
Select Case .TopLeftCell.Column
Case 3, 5, 6
.TopLeftCell = .AlternativeText
.Delete
End Select
End With
Next
End Sub