Problème dans une macro

[klorane]

Bonsoir à tous,

voilà j'ai la macro suivante:

sub macro110

Dim Table As Range, Plage As Range, Cell As Range
Dim i As Byte, j As Byte

' Définition de la zone résultat
Set Table = Sheets("Feuil1").Range("B55:AK55")
' Définition de la zone départ
Set Plage = Sheets("Feuil3").Range("E3:E150")
'Effacement de la table résultat
Table.Offset(1, 0).ClearContents

' Report des valeurs des lignes
For Each Cell In Plage
i = Application.Match(Cell, Table, 0)
If Cells(56, i + 1) = "" Then
Cells(56, i + 1) = Range("h1").Value + 1
End If

For z = 1 To 500 ' A régler pour la vitesse
DoEvents
Next


Code xxxx
Code xxxx
etc...

Liste.Offset(1, 0).ClearContents

Next Cell


end sub


Quand j'essaye de la lancer j'ai le message suivant : "erreur d'execution 13"
j'ai cherché, mais je n'arrive pas à voir d'ou provient l'erreur.

j'ai la ligne suivante qui est en jaune: i = Application.Match(Cell, Table, 0)

Si quelqu'un voit d'ou l'erreur provient ou à une autre solution je suis preneur.

Merci

Laurent

 

[klorane]

Re : Problème dans une macro

Le problème est résolu donc ne vous cassez pas la tete là dessus

Laurent