Bonjour à tous, un p'tit soucis avec un code dans un module qui fonctionne bien sur 2013 et qui me donne l'erreur suivante sur 2007

Erreur d'execution 1004 Erreur définie par l'application ou par l'objet en rouge dans le code.

Y a t'il une incompatilité entre les deux versions et si OUI, comment faire marcher le code entre les deux versions.

A savoir que ma variable "f" me donne bien les recherches attendues

Merci d'avance



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sheets("TRAITEMENT HEURE").Select 'Sélectionne la TRAITEMENT HEURE
   
    Workbooks("Controle-KM.xlsm").Activate 
    Sheets("TRAITEMENT HEURE").Columns("I:M").ClearContents 'Efface les données des colonnes I à M
        
    Set orders = Sheets("TRAITEMENT HEURE").ListObjects("tableau1") 'Inspecte le Tableau1 défini par Insertion/Tableau
    For Each Cel In orders.DataBodyRange.Columns(5).Cells 
        If Cel.Value <> 0 Then 'les valeurs ne contenant pas de 0
        
        f = f + 1
        ReDim Preserve Tblo1(1 To 5, 1 To f)  'et les classent dans les colonnes I à M
        Tblo1(1, f) = Cel.Offset(0, -4).Value 
        Tblo1(2, f) = Cel.Offset(0, -2).Value 
        Tblo1(3, f) = Cel.Offset(0, -1).Value 
        Tblo1(4, f) = Cel.Offset(0, 0).Value 
        Tblo1(5, f) = Cel.Offset(0, -3).Value 
        End If
        
    Next Cel
    
   
    Sheets("TRAITEMENT HEURE").Range(Cells(1, 9), Cells(f, 13).Value) = Application.WorksheetFunction.Transpose(Tblo1)
    Range("g1").Select