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