Macro...comment modifier cette macro pour archiver une seule et même fiche...

Sub OptimiseTempsExecArchivlign3()
Dim Plage As Range, x, TabTemp
Dim L As Long
    Application.ScreenUpdating = False
    Set Plage = Sheets("FICHE TECHNIQUE").Range("ligne3")
    With Sheets("Archives")
        x = Application.Match(Plage(9), .Columns(10), 0)
        If Not IsError(x) Then
            If MsgBox("existe déjà ! Remplacer ?", vbYesNo) = vbNo Then
                Exit Sub
            Else
                L = x
            End If
        Else
            L = .Range("b10000").End(xlUp).Row + 1
        End If
        TabTemp = Plage.Value
        .Cells(L, 2).Resize(1, UBound(TabTemp, 2)).Value = TabTemp
    End With
    Application.ScreenUpdating = True
    nouveaunumero
    Range("B2").Select
End Sub