Macro excel - Page 2

sinon je n'arrive pas à le faire fonctionner avec activate

c'est bon les gars je suis parvenu à mes fin et ca fonctionne nikel ca donne ca:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 17).Value = "ok" Then
Dim lig As Long
Sheets("archive").Select
ActiveSheet.Unprotect
With Sheets("archive")
lig = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(lig, 1).Resize(1, 6).Value = Cells(Target.Row, 1).Resize(1, 6).Value
.Cells(lig, 7).Resize(1, 4).Value = Cells(Target.Row, 9).Resize(1, 4).Value
.Cells(lig, 11).Resize(1, 3).Value = Cells(Target.Row, 14).Resize(1, 3).Value
.Cells(lig, 14).Resize(1, 1).Value = Date
Cells(Target.Row, 1).EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
ActiveWorkbook.Save
End With
End If
End Sub

et une macro pour le trie de la feuille archive par numéro avec un raccourci dans la barre d'outil:

Option Explicit

Sub trier_par_numéro_de_commande__Ctrl_t()
'
' trier_par_numéro_de_commande__Ctrl_t Macro
' Macro enregistrée le 18/10/2007 par a672700
'
' Touche de raccourci du clavier: Ctrl+t
'
ActiveSheet.Unprotect
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True
End Sub

Merci beaucoup pour votre aide à charge de revanche.
A+

Bonjour,

Désolé de n'avoir pu te répondre mais je vois que tu y es arrivé tout seul. C'est bien.
En fait le .unprotect et .protect ne doivent pas etre necessaires pour toi.
J'avais été dérangé en te repondant et j'ai du faire une compil de 2 discussions...
N'oublie pas de mettre résolu stp
eric