Arret de la macro non voulu

Bonjour,

Alors voila j'ai une macro pour séparer les noms prénoms d'une cellule unique en deux autres cellules.
Ma regle est simple: je coupe au niveau du caractère "espace" la valeur à gauche ca va dans la colonne B la valeur à droite va dans la colonne C.
Voici mon code :

Sub Decompose()
    Dim Tourne As Long
    Dim derlig As Long
    Dim TNP
     With ThisWorkbook.Worksheets("PKI")
        derlig = Range("A" & Rows.Count).End(xlUp).Row
        For Tourne = 2 To derlig
            TNP = Split(Range("A" & Tourne), " ")
            Range("B" & Tourne) = TNP(0)
            Range("C" & Tourne) = TNP(1)
        Next Tourne
    End With
End Sub

Et lorsque ma macro arrive sur la cellule avec la variable "BERTRAND-CHARPENTIER" mon script s'arrête sans message d'erreur.

J'aimerai que la macro bypass les nom prénom qui n'ont pas d'espace entre eux.
Je ferais du cas par cas par la suite.

Je vous remercie d'avance pour votre aide ;)

Cordialement,