Merci F,
ca ne marchait aps. J'ai trouvé sur un forum allemand la solution suivante que je recopie pour info:
Sub Zahlen_auslesen()
decimalseparation= ","
For i = 1 To 3
valeur = Cells(i, 1).Value 'Exemple A1 à A3
cellvaleur = ""
For k = 1 To Len(wert)
z = Mid(wert, k, 1)
If Not (Asc(z) > 47 And Asc(z) < 58) Then
If z = decimalseparation Then
If Not Asc(Mid(wert, k + 1, 1)) > 47 And Asc(Mid(wert, k + 1, 1)) < 58 Then
z = ""
End If
Else
z = ""
End If
End If
cellvaleur= cellvaleur& z
Next k
Cells(i, 2).Value = CDbl(zellwert) 'valeurs recopiées dans B1 bis B3
Next i
End Sub