Pour info, j'avais fait ça avec l'enregistreur de macro mais je récupere des zéros pour les cellules vides que je dois ensuite supprimer.Il doit y avoir moyen de faire mieux.....
Columns('B:B').Select
Selection.Insert Shift:=xlToRight
Range('B1').Select
ActiveCell.FormulaR1C1 = '=RC[-1]/100'
Range('B1').Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Columns('B:B').Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns('A:A').Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Merci