Rectifification excusez-moi, c'est avec le code
que j'ai un probleme
Sheets(1).Columns(1).TextToColumns Range('A1'), xlTextQualifierDoubleQuote, , False, , , , , True, ';', Array(1, 4)
Toutes les données sont sépararées par ';' sauf le dernier champ qui est nom,prénom.
après l'exécution de cette ligne de code le prénom est disparait.