L
Laurence
Guest
Comment séparer le contenu d'une cellule en deux cellules ? (ex. : séparer les prénoms des noms.
Merci de votre réponse
Merci de votre réponse
Sub test()
Dim i As Byte
Application.Goto Sheets('feuil1').Range('A1')
For i = 1 To Range('a65536').End(xlUp).Row
Cells(i, 2).Value = Right(Cells(i, 1).Value, (Len(Cells(i, 1).Value) - InStr(1, Cells(i, 1).Value, ' ')))
Next i
End Sub