Sub Macro5()
'
' Macro5 Macro
'
'
'selection de b1
Range("B1").Select
'valeur de b 1 = 1
ActiveCell.FormulaR1C1 = "1"
'sélection de b1
Range("B1").Select
'copie de la valeur de b1 de b1 à b11
Selection.AutoFill Destination:=Range("B1:B11"), Type:=xlFillDefault
'selection de b1 à b11
Range("B1:B11").Select
'copie de la sélection
Selection.Copy
'selection de a1 à a11
Range("A1:A11").Select
'collage de la même plage => l'opération ne peut fonctionner et les valeurs conservent le format texte
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("B1:B11").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1:A11").Select
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0.00%"
Range("A1").Select
End Sub