1. Function Splitmaj$(t$) '$ => As String
2. Dim s, i%, j% '% => As Integer
3. s = Split(t)
4. For i = 0 To UBound(s)
5.   t = s(i)
6.   For j = 2 To Len(t)
7.     If Mid(t, j, 1) = UCase(Mid(t, j, 1)) Then
8.       t = Left(t, j - 1) & " " & Mid(t, j)
9.       j = j + 1
10.     End If
11.   Next j
12.   s(i) = t
13. Next i
14. Splitmaj$ = Join(s)
15. End Function
18. Sub For_X_to_Next_Colonne()
19.     Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
20.     Dim NoLig As Long, DerLig As Long, Var As Variant
22.     'Instance de la feuille qui permet d'utiliser FL1 partout dans
23.     'le code à la place du nom de la feuille
24.     Set FL1 = Worksheets("Feuil1" )
26.     'Détermine la dernière ligne renseignée de la feuille de calculs
27.     '(Voir explication sur l'utilisation de Split en bas de cette discussion)
28.     DerLig = Split(FL1.UsedRange.Address, "$" )(4)
30.     'Fixe le N° de la colonne à lire
31.     NoCol = 2
33.     'Utilisation du N° de ligne dans une boucle For ... Next
34.     For NoLig = 63417 To DerLig
35.         Var = FL1.Cells(NoLig, NoCol)
36.      
37.         Range("I" & NoLig).Value = SplitmajVar
38.            
39.            
41.     Next
42.     Set FL1 = Nothing
43. End Sub

Sub Demo()
        S$ = "JohnSmith"
    For L& = 2 To Len(S)
            C$ = Mid$(S, L, 1)
        If UCase$(C) = C Then
            Debug.Print Left$(S, L - 1) & vbLf & Mid$(S, L)
            Exit For
        End If
    Next
End Sub

1. Sub Demo2()
2.     With CreateObject("VBScript.RegExp" )
3.              .Global = True
4.              .Pattern = "[A-Z][a-z]*"
5.         With .Execute("JohnSmith" )
6.           If .Count > 1 Then Debug.Print .Item(0).Value & " " & .Item(1).Value
7.         End With
8.     End With
9. End Sub

1. "Range("I" & NoLig).Value = SplitmajVar"

1. "Range("I" & NoLig).Value = Splitmaj Var"