'pour convertir les données :
Range("C3:C39").Select
ActiveWindow.SmallScroll Down:=-30
Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, FieldInfo _
:=Array(1, 1), ThousandsSeparator:=".", TrailingMinusNumbers:=True
'pour mettre le séparateur de milliers :
Range("C3:C39").Select
Selection.NumberFormat = "#,##0"