Sub travdemande()
Dim i As Long
Dim lidep1 As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim cellule As Range
lidep1 = 4
nomfeuille1 = ActiveSheet.Name
col1 = "a"
With Sheets(nomfeuille1)
For Each cellule In .Range(col2 & lidep1 & ":" & col2 & .Range(col2 & "65536").End(xlUp).Row)
For i = 1 To Len(cellule.Value)
If IsNumeric(Mid(cellule, i, 1)) Then Exit For
Next i
nom1 = Trim(Mid(cellule, 1, i - 1))
pos = InStr(1, nom1, " ")
nom2 = Trim(Mid(nom1, 1, pos - 1))
prenom = Trim(Mid(nom1, pos + 1, 50))
cellule.Offset(0, 2).Value = nom2 & " " & prenom ' à modifier
Next cellule
End With
End Sub