Bonjour a tous,

Lors de la compilation de mon programme(qui copie des donnees d'une feuille a l'autre), le compilateur m'affiche une erreur sur la ligne en gras :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
For Each C In STDiK.Range("H2:H" & STDiK.Cells(Rows.Count, 8).End(xlUp).Row)
    With Hauptgewerke.Range(Cells(2, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2))
    Set D = .Find(C.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not D Is Nothing Then
        C.Copy Destination:=STDoK.Cells(ligne, 4)
        ligne = ligne + 1
        End If
    End With
Next
Est-ce un probleme de syntaxe ou le mal est-il plus profond ?