j'ai fait une boucle et, en effet toutes les données ne se convertissent pas
Sub Macro2()
c = Range("K2", Range("K2").End(xlDown)).Count
Cells(1, 6) = c
Range("F1").NumberFormat = "0"
For i = 2 To Cells(1, 6)
Cells(i, 11).Select
Selection.Copy
Cells(i, 6).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.NumberFormat = """SFr."" #,##0.00"
Next
End Sub
j'obtiens
SFr. 1.20
1.21
1.22
SFr. 1.23
1.24
SFr. 1.25
1.26
1.27
1.28
1.29
1.30
1.31
1.32
1.33
1.34
1.35
1.36
1.37
1.38
1.39
1.40
1.41
1.42
1.43
... excuse, mais je dois partir, je regarderai lundi
bon WE
albert