Probleme sur code vba export

Sub ExportCSV()
    Dim LigneCSV As String
    Dim PlageCSV As Range
    Dim Ligne As Integer, Colonne As Integer, Nb_Ligne As Integer, Nb_Colonne As Integer
    
    'choix du repertoire
    Dim Repertoire As FileDialog, Rep As String
    
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        Rep = Repertoire.SelectedItems(1) & "\"
        'Fermeture ficher si ouvert
        Close
        'Plage CSV
        Set PlageCSV = Worksheets("Donné équipement").Range("A1:T650")
        'Ouverture du fichier de sortie
        Open Rep & "testexcel.csv" For Output As #1 'a changer pour les autre pc'
        'Butees de comptage
        Nb_Ligne = PlageCSV.Rows.Count
        Nb_Colonne = PlageCSV.Columns.Count
        'Boucle sur la plage et ajoute les lignes au fichier
        For Ligne = 1 To Nb_Ligne
            For Colonne = 1 To Nb_Colonne
                If LigneCSV <> "" Then
                    LigneCSV = LigneCSV & ";"
                End If
                'construction ligne
             LigneCSV = LigneCSV & PlageCSV.Cells(Ligne, Colonne).Value
            Next Colonne
            'Enregistrement ligne
            Print #1, LigneCSV
            LigneCSV = ""
        Next Ligne
        'Fermeture du fichier
        Close #1
    Else
        MsgBox "Choisissez un repertoire!!!!"
    End If

End Sub