XL 2013 Suppression espaces inutiles

[Appo1985]

Bonsoir à tous.
J'ai voulu supprimer par vba les espaces de trop dans mon tableau mais ce sont les seulement les espaces en début de cellule qui sont supprimés.
Je voudrais de l'aide .
Merci d'avance
Ci-joint mon fichier

 

[vgendron]

Hello

Un essai avec ce code

Sub Bouton1_Cliquer()
Dim c As Range
    For Each c In Range("Tableau1")
        tempo = Split(c, " ")
        d = ""
        For i = 0 To UBound(tempo)
            If tempo(i) <> "" Then
                d = d & tempo(i) & " "
            End If
            
        Next i
        c = UCase(Trim(d))
    Next c
    For Each x In Range("Tableau1[Prénom(s)]")
        x.Value = Application.Proper(x.Value)
    Next
End Sub

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Appo1985]

Hello

Un essai avec ce code

Sub Bouton1_Cliquer()
Dim c As Range
    For Each c In Range("Tableau1")
        tempo = Split(c, " ")
        d = ""
        For i = 0 To UBound(tempo)
            If tempo(i) <> "" Then
                d = d & tempo(i) & " "
            End If
           
        Next i
        c = UCase(Trim(d))
    Next c
    For Each x In Range("Tableau1[Prénom(s)]")
        x.Value = Application.Proper(x.Value)
    Next
End Sub

Merci beaucoup @vgendron .
J'ai oublier de préciser que le problème c'est quand il y a deux mots dans la cellule.
Je voudrais aussi supprimer les espaces superflus entre les mots car par la suite je compte faire un tri de A à Z

 

[vgendron]

Je voudrais aussi supprimer les espaces superflus entre les mots

et bah.. ? n'est ce pas ce que fait mon code??

 

[Appo1985]

et bah.. ? n'est ce pas ce que fait mon code??

Effectivement.
Ça marche bien
J'avais mis "" à la place de " "

 

[Appo1985]

Bonjour
Ci joint ma solution

A+ François

Grandement merci @fanfan38 . Le résultat est exactement ce que je voulais.

 

[Appo1985]

Bonjour
Ci joint ma solution

A+ François

Un petit turc.
Au niveau de la deuxième colonne, les deuxièmes mots ne commencent pas par une lettre majuscule.

 

[fanfan38]

Il suffit de demander lol...

A+ François

 

[Appo1985]

Il suffit de demander lol...

A+ Franço

Il suffit de demander lol...

A+ François

C'est OK.
Merci grandement