Function ExtraitChiffres(zone As Range) 'As Long
ExtraitChiffresTxt = ""
For Each cell In zone
For i = 1 To Len(cell)
If IsNumeric(Mid(cell, i, 1)) Or Mid(cell, i, 1) = "," Then ExtraitChiffresTxt = ExtraitChiffresTxt & Mid(cell, i, 1)
Next
Next
ExtraitChiffres = ExtraitChiffresTxt
End Function