Bonjour

Il n'y a pas de possibilité de le faire à ma connaissance avec un fonction standard mais avec une fonction personnalisée dans un module c'est possible.

Public Function majuscules(zone)
Dim sel As Object
Dim i As Integer
Application.Volatile
For Each sel In zone
    For i = 1 To Len(sel)
        If Asc(Mid(sel, i, 1)) > 64 And Asc(Mid(sel, i, 1)) < 91 Then
            majuscules = majuscules & Mid(sel, i, 1)
        End If
    Next i
Next sel
End Function

Bonjour
Le contenu de votre cellule est-il toujours de la même longueur ou variable ?
ça doit être faisable avec une formule, si le texte n'est pas trop long, ou avec une macro sinon.
Dans l'attente de vous lire,
Cordialement,
Pascal

Salut.le site de telecharger need for speed
est merci