Macro concatener nom et prénom avant l'espace

Sub concatene()


Dim cell As Range
Dim nom As String
Dim prenom As String

For Each cell In Selection
nom = cell.Offset(0, -2)
prenom = cell.Offset(0, -1)
cell.Value = nom & ' ' & prenom
Next
End Sub

Sub concatene()


Dim cell As Range
Dim nom As String
Dim prenom As String
Dim premier As String

For Each cell In Selection
nom = cell.Offset(0, -2)
prenom = cell.Offset(0, -1)
lg = Len(prenom)
pos = InStr(1, prenom, ' ')
If pos = 0 Then
cell.Value = nom & ' ' & prenom
Else
premier = Mid(prenom, 1, pos)
cell.Value = nom & ' ' & premier
End If
Next
End Sub