Workbooks.OpenText Repertoire & "\" & FichierCSV, xlWindows, 1, xlDelimited, , , , True, , , , , , , , , , True

Le 2nd True signifie que le séparateur utilisé est un point-virgule.

Alternative :

    Workbooks.Open Filename:=CheminFichierSource & NomFichierSource
    Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Copy
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, semicolon:=True