Macro enlever les Alt Entrée

Bonjour,

J'aimerai avec une macro enlever les Alt Entrée

Lancer la macro, me demander de faire une sélection et valider , ce qui enlève les alt entrée et remplace par un espace.

Merci pour votre aide.

Bonne journée.

Bonjour,

Au plus simple

Sub saisie_nom()
Dim Cel
  Cel = InputBox("Quelle cellule ?", "Votre choix")
  Range(Cel).Select
  ActiveCell = Application.Substitute(ActiveCell, Chr(10), " ")
End Sub

Bonjour,

Cela marche pour une Cellule.

J'aimerai sélectionner plusieurs cellules en même temps. est ce possible?

Bonjour,

J'ai trouvé ceci :

Sélectionner les cellules en question, => Accueil => Édition => Rechercher et sélectionner > Remplacer, dans la partie rechercher : tu maintiens la touche ALT enfoncée en saisissant 0010, puis dans la zone remplacer mettre espace