Re : Formulaire saisie modif VBA
ok j'ai remplacé
mais erreur un peu plus loin
Next
.Range("a1").CurrentRegion.Sort Key1:=.Range("e1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Set tableau = .Range(.Range("a2"), .Cells(derlig, 6))
End With
= Erreur définie par l'application ou par l'objet
Sans doute une autre ligne à changer ?
a+