Bonjour,
J'ai code pour le texte en nom propre qui fonctionne très bien, j'aimerai lui apporter une modification
mon code:
Sub Min()
Dim Lg%, i%
Lg = Range("J65536").End(xlUp).Row
If Mmis = False Then
For i = 1 To Lg
'Cells(i, 1) = LCase(Cells(i, 1)) 'minuscule
Cells(i, 10) = Application.Proper(Cells(i, 10)) 'Nom propre
Next i
Mmis = False
End If
End Sub
Je voudrais qui supprime "tirets et tiret-bas"
Je vous remercie d'avance
Max