Erreur Endwith sans With

Bonjour,

je suis en train de construire un code, qui lorsque je le teste, VBA m'annonce une erreur Endwith sans With.

Pourtant, j'ai beau regarder je comprends pas. Si quelqu'un avait une idée... Merci d'avance.

Bonjour,

Il vous manque déjà un "next Cell"

With Sheets("Synthèse")
    .Activate
    Marecherche = Num1.Value
    For Each Cell In Num_serie
        If Cell.Value = Marecherche Then
            N_Lig = Cell.Row
            Range("E").N_Lig = Ddm1.Value
        End If
    Next Cell
End With

Il serait bon que vous indentiez votre code correctement, cela vous éviterait ce type d'erreur ....

Merci pour ce dépannage. Merci aussi pour la remarque, j'en prends bonne note.