XL 2010 Supprimer les lignes vides dans une cellule

[Myst]

Bonsoir le forum
Je cherche a supprimer les espaces vides dans des cellules, j'ai fait plusieurs recherche et n'ai trouvé que des solutions pour les espaces avant ou après le texte mais rien pour ceux situés en dessous de celui-ci
Exemple dans le fichier joint a la cellule "F9" de 'onglet "Base de donnee" et je voudrais que cela s'applique au cellules "A3;J65000"
merci

 

[Staple1600]

Bonsoir le fil, le forum

@Myst
C'est le résultat souhaité?

Sub Test()
Dim p As Range, c As Range
Set p = [A1].CurrentRegion
Application.ScreenUpdating = False
For Each c In p
If Len(c) < 50 Then
c.Value = Replace(c.Text, Chr(13), vbNullString)
c.WrapText = False
End If
Next
End Sub

 

[Myst]

Bonsoir Staple1600
Oui c'est exactement ça comme toujours
merci

 

[Myst]

Re
OUPS , un peu trop rapide j'ai été, le texte dans les TEXTBOX5 , 9, 10, 11, 12, 13, 14, 15, 16 et 17 doivent s'afficher a la vertical dans une même cellule en colonne "F" de la feuille "Base de donnee" et la ce n'est plus le cas, toutes les données ce place a la suite sur une seul ligne, je voudrais seulement supprimer les espaces vide verticalement dans chaque cellule

 

[Myst]

Allo, y a quelqu'un ?