erreur

[ma]

bonjour à tous

Voici j'ai un ty problème j'ai une erreur de type 13 càd Incompatibilité de type pour la ligne mise en rouge

Je vois pas où est mon erreur
Si qqn peux m'aider ????

Merci


Sub CopieTNT()
Dim TestMois As String

'Ouverture du fichier détail
Application.ScreenUpdating = False
ChDir 'G:\\COMPTA2005\\Transports'
Workbooks.Open Filename:= _
'G:\\COMPTA2005\\Transports\\Détail factures TNT 2005.xls'
Workbooks('Détail factures TNT 2005.xls').Worksheets('détail').Rows('1:1').Select
Selection.AutoFilter

'Selectionne le mois inscrit en C4
TestMois = Month(Workbooks('TNTControleFreightOut.xls').Worksheets('Macro').Range('C4').Value) & Year(Workbooks('TNTControle.xls').Worksheets('Macro').Range('C4').Value)
Debug.Print TestMois
Workbooks('Détail factures TNT 2005.xls').Activate
Worksheets('détail').Activate

'Copie les lignes dont le n° client=29905 et dont le mois correspondent
For Each ligne In Workbooks('Détail factures TNT 2005.xls').Worksheets('détail').Range('A1', 'A' & Workbooks('Détail factures TNT 2005.xls').Worksheets('détail').Range('A65535').End(xlUp).Row).Rows
Worksheets('détail').Range('J' & ligne.Row).Select
If ligne.Row <> 1 Then
Debug.Print Range('J65535').End(xlUp).Row
If ActiveCell.Text = 'Paris' And Month(ActiveCell.Offset(0, -7).Value) & Year(ActiveCell.Offset(0, 2).Value) = TestMois Then
ligne.EntireRow.Copy Destination:=Workbooks('TNTControleFreightOut.xls').Worksheets('Base').Range('A65535').End(xlUp).Offset(1, 0)
End If
End If
Next

'Ferme le fichier détail factures TNT 2005
Windows('Détail factures TNT 2005.xls').Activate
ActiveWorkbook.Close

'Revient à l'onglet Macro
Workbooks('TNTControleFreightOut.xls').Activate
Worksheets('Macro').Activate
Application.ScreenUpdating = True

End Sub

 

[ma]

A oublier j'ai trouvé