Pb de vba excel range et paste

Bonjour,

Cela fait plusieurs jours que je suis sur le même pb de copier/coller avec transpose et rien y fait j'ai toujours le même message d'erreur. J'ai lu et testé tous les codes proposés pour solutionner des pb semblable au mien mais rien y fait. Est-ce que quelqu'un une solution, un petit génie avant que je balance mon pc par la fenêtre...

Voici le code :
Sub rapatriement()
Dim Fich As String, Ligne As Long
Const Chemin = "G:\Conso_Grilles\"
Ligne = 4
Fich = Dir(Chemin & "\AAZZZ_*.xls")
Do While Fich <> ""
Workbooks.Open Filename:=Chemin & Fich
Sheets("Grille AA").Select
Range("m9:M67").Copy

Windows("Conso_Grilles_AA.xls").Activate
Sheets("Discours1").Select
valeurA4 = Range("A4").Value
If valeurA4 = "" Then
Range("A4").Select
Else
Range("A3").Select
Selection.End(xlDown).Select

Range("A" & ligne_active_base + 1).Select
End If
ligne_active_base = ActiveCell.Select

Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipblanks:=False, Transpose:=True
Selection.Font.ColorIndex = 0
Selection.Font.Bold = False

ActiveWorkbook.Save

Workbooks(Fich).Close False
Fich = Dir
Loop
End Sub

Please help !

<excel 2000