Sub CopierFichier()
                
                    
    'variable pour vider le presse papier
    Dim oDataObject As DataObject

    Set oDataObject = Nothing
    
    'Copie du fichier d'acquisition
    FileCopy "D:\Data_RDG\FOC\SN_0045\2. Getters Activation\Activation\2013_0122 Activation Getter.DAT", "D:\Data_RDG\FOC\SN_0045\2. Getters Activation\Activation\copie de 2013_0122 Activation Getter.DAT"
    
    'Copier les DATA
    Workbooks.OpenText Filename:= _
       "D:\Data_RDG\FOC\SN_0045\2. Getters Activation\Activation\Copie de 2013_0122 Activation Getter.DAT"
    Range("A8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
   
   'Coller les DATA dans le fichier excel contenant les graphs
    Windows("2013_0122 Activation Getter.xls").Activate
    Sheets("Data").Select
    Range("A8").Select
    ActiveSheet.Paste
    
    'vider le presse papier
    Set oDataObject = New DataObject
    oDataObject.SetText ""
    oDataObject.PutInClipboard
    
    'fermer le fichier
    Windows("copie de 2013_0122 Activation Getter.DAT").Activate
    ActiveWindow.Close
    
    'supprimer un fichier
    Kill "D:\Data_RDG\FOC\SN_0045\2. Getters Activation\Activation\Copie de 2013_0122 Activation Getter.DAT"
    
    'Efface les lignes contenat les formules pour les DATA des graphs.
    Range("Q10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    
    'recherche de la dernière ligne de données reçu du keithley (i contiendra uniquement le numéro de ligne)
    Dim i As Integer
    i = Range("A" & Rows.Count).End(xlUp).Row
    
    'on se place à la 2ème ligne contenant toutes les formules de conversion pour les data des graph
    Range("Q9:Y9").Select
    
    'remplissage automatique de toutes les ligne jusqu'aux dernières DATA reçues
    Selection.AutoFill Destination:=Range("Q9" & ":Y" & i)
    Range("Q9" & ":Y" & i).Select
    
    'se positionne sur la dernière case remplie.
    Range("Q" & i).Select
    
    
End Sub