à l'ouverture d'un fichier excel : VB

forcement si j'écri pas comme il faut... c'est bon ça marche merci beaucoup!!

bon au risque d'abusé de ta générosité jte pose une autre question qui me pose problème car ta laire d'être bien calé en programmation.
j'ai créé un programme en visual basic pour verrouiller des pages de saisie et en rendre d'autres automatiques (ex la date).
j'ai mis mon programme sous worksheet change, il marche pas de problème mais dès que je tape quelque chose dans une celulle de la colonne 1 par exemple et que je tape entrée, il faut que j'attende un petit moment avant que le programme s'execute et que je puisse faire une nouvelle saisie.
j'aimerais donc le rendre plus rapide.
de plus j'ai crée un bouton a l'aide d'une macro qui kan on apui dessu nous inser une nouvelle ligne de saisie.
ce bouton marche mais j'ai limpression que la nouvelle ligne qu'il génère est soumise au programme que j'ai taper et je ne pe pa y accéder immédiatement!! c également tro long.
si ta une idée... (si ta besoin de plus d'info jten donnerai!!)
merci beaucoup


voici ma macro:

Sub Nouvel_enregistrement()
'
' Macro10 Macro
' Macro enregistrée le 27/05/2009
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

voici mon programme:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ILIG As Integer 'N° de la ligne
Dim ICOL As Integer 'N° de la colonne
Dim Myvar As String 'sous chaine1: partie numérique de la chaine XS
Dim Mycheck As Boolean 'vérification que la sous chaine1 est bien numérique
Dim Mycharacter As String 'sous chaine2: partie charactrere de la chaine XS
Dim Mycheckc As Boolean 'vérivication que la sous chaine2 ne contien que des characteres
Dim C1 As String 'sous chaine2: partie charactrere de la chaine XS
Dim PC1 As Boolean 'vérivication que la sous chaine2 ne contien que des characteres
Dim E As String 'charactere espace
Dim XS1 As String 'chaine de characteres dans la cellule 1
Dim XS As String 'chaine de characteres dans la cellule 1 en majuscule
Dim XS2 As String 'chaine de caracteres dans la cellule 3
Dim XS3 As String 'chaine de characteres dans la cellule 3 en majuscule
Dim XP As Integer 'position du charactere
Dim XL As Integer 'longueur à extraire


ILIG = Target.Row
nouvelE = 0
If ILIG > 5 Then
ICOL = Target.Column
Select Case ICOL
Case 1
XS1 = Cells(ILIG, 1)
XS = UCase(XS1)
XP = 1
Myvar = Mid(XS, XP, 4)
Mycheck = IsNumeric(Myvar)
Mycharacter = Mid(XS, 5, 2)
Mycheckc = IsNumeric(Mycharacter)



If (Len(XS) = 6 And (Mycheck = True And Mycheckc = False)) Then

Cells(ILIG, 1) = XS

If (Mycharacter = "BT" Or Mycharacter = "RB") Then
Cells(ILIG, 2) = "C/C"
End If

If Cells(ILIG, 5) = "??" Or Cells(ILIG, 5) = "" Then
Cells(ILIG, 5) = Now
End If

Else
Cells(ILIG, 1) = "??"
Cells(ILIG, 5) = "??"
End If
Case 3
XS2 = Cells(ILIG, 3)
XS3 = UCase(XS2)
C1 = Mid(XS3, 1, 1)
PC1 = IsNumeric(C1)
E = Mid(XS3, 7, 1)

If (Len(XS3) = 9 And E = " " And PC1 = False) Or XS2 = "divers" Then
Cells(ILIG, 3) = XS3
Else
Cells(ILIG, 3) = "?"
End If
Case Else
If Cells(ILIG, 24) <> "" Then
Cells(ILIG, 4) = "Accident Qualité"
End If
If (Cells(ILIG, 19) <> "?" And Cells(ILIG, 19) <> "" And Cells(ILIG, 20) = "") Then
Cells(ILIG, 20) = Now
End If
End Select
End If

End Sub

écoute g fait un essai autremen car ce que tu m'a donné enpeche mon programme de fonctionner par la suite il ne fai que copier collé!

Dim NewRec As Boolean

Private Sub NewRec1_Click()
NewRec = True
Rows("4:4").Select
Selection.Copy
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If NewRec Then
MsgBox ("Nouvel enregistrement")
Else
MsgBox ("Pas de nouvel enregistrement")
End If

NewRec = False
End Sub

A l'utilisation, si on change le contenu d'une quelconque cellule, on a bien le message "pas de nouvel enregistrement".
Si on clique sur le bouton NewRec, on créé bien une nouvelle ligne, on a bien le message "Nouvel enregistrement" mais on a aussi le message "Pas de nouvel enregistrement" qui apparait...
comme si il y avait une boucle kest ten pense?

merci beaucoup ça marche!!!
bon maintenant jte demande une derniere chose si ta du temps et après je te laisse (si je te solissite autan c par ce que mon stage arrive a son terme et je doit rendre quelque chose qui fonction!! et en se momen a chak foi que je réctifie quelque chose il y a un nouveau pb qui apparait!!)
le pb est que le reste de mon programme est tro long à s'executer!! par exemple quand je suis ds la colonne 1 je ve vérifier si ce qui vien d'etre tapé est bien 4 chiffre et 2 lettre si c le cas on continue je doit attendre un momen avan ke le programme finisse de s'éxécuté et avan de pouvoir accéder a une autre case ou même modifier celle ci!! je pense que j'ai mal du écrir mon programme jte le montre di moi ce que tu en pences!!
merci encore pour le temps que tu m'accorde!!

Dim Traitement_Autorise As Boolean

Private Sub CommandButton2_Click()
Traitement_Autorise = True
Rows("4:4").Select
Selection.Copy
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Traitement_Autorise = False
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ILIG As Integer 'N° de la ligne
Dim ICOL As Integer 'N° de la colonne
Dim Myvar As String 'sous chaine1: partie numérique de la chaine XS
Dim Mycheck As Boolean 'vérification que la sous chaine1 est bien numérique
Dim Mycharacter As String 'sous chaine2: partie charactrere de la chaine XS
Dim Mycheckc As Boolean 'vérivication que la sous chaine2 ne contien que des characteres
Dim C1 As String 'sous chaine2: partie charactrere de la chaine XS
Dim PC1 As Boolean 'vérivication que la sous chaine2 ne contien que des characteres
Dim E As String 'charactere espace
Dim XS1 As String 'chaine de characteres dans la cellule 1
Dim XS As String 'chaine de characteres dans la cellule 1 en majuscule
Dim XS2 As String 'chaine de caracteres dans la cellule 3
Dim XS3 As String 'chaine de characteres dans la cellule 3 en majuscule
Dim XP As Integer 'position du charactere
Dim XL As Integer 'longueur à extraire


ILIG = Target.Row
ICOL = Target.Column
If Traitement_Autorise = True Then

Else

If ILIG > 5 Then
If ICOL = 1 Then
XS1 = Cells(ILIG, 1)
XS = UCase(XS1)
XP = 1
Myvar = Mid(XS, XP, 4)
Mycheck = IsNumeric(Myvar)
Mycharacter = Mid(XS, 5, 2)
Mycheckc = IsNumeric(Mycharacter)



If (Len(XS) = 6 And (Mycheck = True And Mycheckc = False)) Then

Cells(ILIG, 1) = XS
If Cells(ILIG, 5) = "??" Or Cells(ILIG, 5) = "" Then
Cells(ILIG, 5) = Now
End If
If (Mycharacter = "BT" Or Mycharacter = "RB") Then
Cells(ILIG, 2) = "C/C"
End If
Else
Cells(ILIG, 1) = "??"
Cells(ILIG, 5) = "??"
End If
Else
XS2 = Cells(ILIG, 3)
XS3 = UCase(XS2)
C1 = Mid(XS3, 1, 1)
PC1 = IsNumeric(C1)
E = Mid(XS3, 7, 1)
If ICOL = 3 Then
If (Len(XS3) = 9 And E = " " And PC1 = False) Or XS2 = "divers" Then
Cells(ILIG, 3) = XS3
Else
Cells(ILIG, 3) = "?"
End If
Else
If Cells(ILIG, 24) <> "" Then
Cells(ILIG, 4) = "Accident Qualité"
End If
If Cells(ILIG, 24) <> "" Then
Cells(ILIG, 4) = "Accident Qualité"
End If
End If
End If
End If
End If

End Sub

merci beaucoup pour toute l'aide que tu m'a apporté ça faisiat 2 mois que je marachais les cheveux sur ce programme!! et je n'ai eu accès à internet que au bout de 7 semaines stage tu voix la galère...!
Mais franchement jsuis très reconnaissante de tout le temps que ta passé pour m'aider!!
encore une fois merci!!