Bonsoir Patrick, Wooshi, le Forum.
Ci-dessous une procédure qui devrait résoudre ton problème. Tout d'abord, j'utilise le "Replace" de façon classique pour convertir les points en virgule, puis j'assure la conversion des valeurs alpha en valeurs numériques en transférant le contenu de la feuille dans un tableau variant et en "réinjectant" ce tableau dans la feuille. Ce transfert "aller-retour" semble suffir pour rétablir la reconnaissance d'un format numérique :
Sub ConversionValeurs()
Dim TabTemp As Variant
Dim Mem1 As Variant
With ActiveSheet
'Remplace des points par des virgules
.UsedRange.Replace ".", ","
'On s'assure que la cellule A1 est non vide
Mem1 = .Range("A1")
If Mem1 = "" Then .Range("A1") = "x"
'Conversion des valeurs alpha en valeurs numériques
'On transfère les valeurs dans un tableau variant
TabTemp = .UsedRange.Value
'On réinjecte les valeurs dans la feuille
.Range(.Cells(1, 1), .Cells(UBound(TabTemp, 1), UBound(TabTemp, 2))).Value = TabTemp
'On vide la cellule A1 si vide au départ
If Mem1 = "" Then .Range("A1") = Mem1
End With
End Sub
Cordialement.
Didier_mDF