oupss
je joint aussi le code complet
--------------------------------
Sub validerDevis()
ActiveWindow.WindowState = xlMaximized
Range("B1").Select
If ActiveCell = 0 Then
Msg = MsgBox("Imposible de valider aucune quantité n'est saisie dans la colonne A")
Range("A7").Select
Else: validerDevis2
End If
End Sub
Sub validerDevis2()
ActiveWindow.WindowState = xlMaximized
Range("B1").Select
If ActiveCell >= 33 Then
Msg = MsgBox("Imposible de valider plus de 33 articles")
Range("A7").Select
Else: validerDevis3
End If
End Sub
Sub validerDevis3()
'Sheets("produit").Unprotect Password:="lpl"
Range("A7:A30000").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3
Range("O7").Select
Selection.Insert Shift:=xlToRight ---------------------->erreur est située à ce niveau de la macro
ActiveWindow.SmallScroll ToRight:=-3
Application.CutCopyMode = False
Range("A6:h6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("A7:h30000").Select
Selection.Copy
Sheets("COPIE").Select
Range("b3").Select
ActiveSheet.Paste
Range("b3").Select
Sheets("produit").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=1
Selection.AutoFilter
Range("E8").Select
Application.DisplayFullScreen = True
Sheets("COPIE").Select
Range("A2:i30000").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:= _
xlAnd
Selection.AutoFilter
Selection.RowDifferences(ActiveCell).Select
Selection.Copy
Sheets("Devis").Activate
Range("D18").Select
ActiveSheet.Paste
Range("D18").Select
Sheets("PRODUIT").Select
ActiveWindow.WindowState = xlNormal
Application.CutCopyMode = False
Sheets("PRODUIT").Select
Range("A7:A30000").Select
Selection.ClearContents
'Sheets("produit").Protect Password:="lpl", DrawingObjects:=True, contents:=True, Scenarios:=True
Sheets("Devis").Activate
'Msg = MsgBox("Opération réussie, imprimer votre devis en 2 exemplaires ")
'imprim
'UserForm1.Show
'Msg = MsgBox("Archivage de votre devis maitenant")
'archiver
UserForm4.Show
End Sub
---------------------------------------------------------------
Avez vous une solution à mon problème car depuis 17 ans que je me sert de ce programme je n' ai jamais eu cette erreur.
Merci de vos réponses
Jean