Public Function TestExtractMajuscules(cellule As Range) As String
Dim i As Integer
Set cellule = cellule.Resize(1, 1)
For i = 1 To Len(Replace(cellule.Text, Chr(9), " "))
If Mid(Replace(cellule.Text, Chr(9), " "), 1, i) = UCase(Mid(Replace(cellule.Text, Chr(9), " "), 1, i)) Then
TestExtractMajuscules = Mid(Replace(cellule.Text, Chr(9), " "), 1, i)
Else
Exit Function
End If
Next i
End Function