Bonjour Riquet,
Je te propose le code ci-dessous (comme dans l'exemple joint) :
Private Sub btn_mDF_Click()
Dim C As Range
For Each C In Selection
'Pour les valeurs non numériques
If Not IsNumeric(C.Value) Then
C.Value = RetChar(C.Value)
End If
Next C
End Sub
Private Function RetChar(Chaine As String) As String
'Remplacer les retours chariot par '-'
Dim Caract As Integer
Dim i As Integer
For i = 1 To Len(Chaine)
If Mid(Chaine, i, 1) = vbLf Then Mid(Chaine, i, 1) = "-"
Next i
RetChar = Chaine
End Function
Cordialement,
Didier_mDF