Macro coller depuis presse-papier

Sub copiercl1colllercl2()
' copier le tableau du classeur 1
    Windows("nomcla1.xlsx").Activate
    Sheets(1).Range("plage du tableau").Copy
' coller dans classeur 2 sur feuille "MESS1" dès [A1]
    Windows("nomcla2.xlsm").Activate
    Sheets("MESS1").Range("A1").Select
    Sheets("MESS1").Paste
End Sub

Sub Collage1()
 Dim MyData As New DataObject
 Dim strClip As String
 On Error GoTo NotText
 MyData.GetFromClipboard
 strClip = MyData.GetText
     Sheets("COLG1").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
NotText:
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Sub Collage1()
 Dim MyData As New DataObject
 Dim strClip As String
 On Error GoTo NotText
 MyData.GetFromClipboard
 strClip = MyData.GetText
 Sheets("COLG1").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
NotText:
 End Sub

Dim Fichier As Variant
    'Affichage de la la boîte de dialogue standard "Ouvrir" pour sélectionner un fichier
    'sur le disque dur.
    'GetOpenFilename permet de lire le nom du fichier sélectionné par l'utilisateur sans
    'réellement ouvrir le fichier.
Fichier = Application.GetOpenFilename("Fichiers (*.xls;*.xla),*.xls;*.xla")
    [A1] = Fichier 'inscrire le chemin du fichier sur la feuille 1
     'Vérifie si l'utilisateur a cliqué sur le bouton "Annuler" ou sur la croix de fermeture.
    If Fichier = False Then
        MsgBox "Opération Annulée"
        'pour sortir de la procédure
        Exit Sub
    End If

[A1] = Fichier

Sub ImportCSV()

Dim FichierCSV1
FichierCSV1 = Application.GetOpenFilename("Fichiers (*.csv), *.csv")
If FichierCSV1 <> False Then
    With Worksheets("COLLG1")
        .UsedRange.ClearContents
        With .QueryTables.Add(Connection:="TEXT;" & FichierCSV1 & "", Destination:=.Range("A1"))
            .PreserveFormatting = False
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
            .Delete
        End With
    End With
End If
    Sheets("COLLG1").Select
    Cells.Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

    Sheets("COLLG1").Select
    Cells.Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Sub Format_Sheet()
 Dim MyData As New DataObject
 Dim strClip As String
 On Error GoTo NotText
 MyData.GetFromClipboard
 strClip = MyData.GetText
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
 SkipBlanks:=False, Transpose:=False
NotText:
 End Sub