Tests conditonnels

Bonjour à tous,

j'espère que vous avez tous passé un bon petit weekend !! Je viens vers vous aujourd'hui car je suis confronté à un petit problème lorsque j'utilise des tests conditionnels. Je pense que je me suis mélangé les pinceaux.

  Set tws = ThisWorkbook.Sheets("mise en forme finale")
    dlt = tws.Cells(Rows.Count, 2).End(xlUp).Row
    Ref_composant = Worksheets("Mise en forme finale").Cells(i, 2).Value
    If nb_machine = 4 Then
        For Start = ligne1 + 2 To Ligne2
            machine = Mid(Worksheets("Écriture").Cells(Start - n, 2).Value, 4, 4)
            valeur = Worksheets("Écriture").Cells(Start, 2).Value
                If Val(valeur) > 0 Then
                    Worksheets("Écriture").Cells(Start, 12).Value = machine
                        For i = 6 To dlt
                            If valeur = Ref_composant Then
                                Worksheets("Mise en forme finale").Cells(i, 5).Value = machine
                            Else: Exit For
                            End If

                Else
                    n = 2
                End If
            n = n + 1
        Next Start

VBA me retourne une erreur au niveau du dernier "else"

 Else
                    n = 2
                End If

Je n'arrive pas à retrouver mon erreur du coup, si vous pouviez m'aider ça serait cool

bonjour,

il maque un next i avant ton else

Merci, le problème venait bien de là.

J'ai un autre problème mon code n'écrit pas le nom de la machine dans la colonne machine de ma feuille "mise en forme finale". Tu aurais une idée pour résoudre le problème ?

ps: le nom de la machine est différent en fonction de la ref du composant correspondant.. C'est la condition que je traite ici

If valeur = Ref_composant Then

Autrement dit, si la ref des composant des deux feuilles est égal alors écrire le nom de la machine correspondante dans ma feuille "mise en forme finale"