Bonjour,

Un partie de mon code doit se placer sur la cellule trouvée pour ensuite la transformer en plage afin de venir y exécuter des actions cellule par cellule.
Le problème est que le code m'affiche une erreur : '1004' erreur définie par l'application ou par l'objet.

voici la totalité du code:
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
If Worksheets(Sh).Cells(ligne, 3).Value = 2 Then
Worksheets(Sh).Cells(ligne, 3).Activate
    ActiveCell.Offset(5, 3).Select      '1ere DESTINATION
    Set Myrange = Range(ActiveCell, ActiveCell.Offset(0, 10)).Select
        For Each cel In Myrange.Cells
            If cel = 0 Or cel = "" Then Exit For
            MAG = ActiveCell.Offset(0, -1).Value
                Do
                a = 2
                    If Worksheets("VERIF + PLANNING").Cells(a, 1).Value = MAG Then
                        Worksheets("VERIF + PLANNING").Cells(a, 2) = "X"
                Exit Do
                    Else
                    a = a + 1
                    End If
                Loop
        Next