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