Conversion en VBA

Merci,
créer la base ça va je m'en sors.
Mais pour faire le bouclage après sur plusieurs lignes j'ai du mal. (j'ai le bouquin prog VBA pour les nuls mais j'ai pas fini de le lire et je suis pas encore au bouclage. ^^
si je comprend bien ici, li1=4 est ma première ligne et li2=15 est ma dernière ligne?
sur mon tableau j'ai plusieurs milliers de lignes.
Qu'est ce qui est le plus simple et le moins lourd:
- mettre li2 = une très grande valeur?
- faire une macro qui voit lorsque qu'il y a une nouvelle valeur en E me rajoute cette macro précédente?
mon fichier faisant déjà 5Mo j'aimerais ne pas trop l'alourdir si c'est possible.

en 2.1: oui j'ai un gros fichier avec beaucoup de lignes contenant chacune beaucoup de formule (ci-joint un exemple de mes formules en O, R, S T et W)
http://www.cjoint.com/confirm.php?cjoint=0CxlOQaCBUI
2.2: oui. Mais ce n'est pas forcément moi qui rajoute des lignes, j'aimerais simplifier au maximum ces étapes. à l'heure actuelle je tire les formules vers le bas en prenant de l'avance et ça va. mais c'est rébarbatif, et quand je suis en retard pour le faire on me dit "ça marche pas".

quelques questions, tu sauras peut-être me répondre:
en vba, est-ce plus simple de faire en sorte que excel repère l'ajout de nouvelle lignes et ainsi lance les formules?
sachant que la personne va rajouter des lignes puis remplir un à un les valeurs dans P et Q par exemple. La formule devrait donc rester active le temps que la personne remplisse les cellules.
Si je comprend bien tu me propose plutôt de faire en sorte de d'abord remplir les cellules et ensuite demander à la macro de calculer?
Je pourrais éventuellement faire un bouton "Calcul" afin de lancer les formules ce serait faisable, dommage j'appréciais le faite d'avoir le résultat sitôt une valeur entrée.

Je souhaiterais prochainement automatiser l'ajout de nouvelles lignes.
Maintenant, la personne doit ajouter quelques champs et ensuite tirer ces champ vers le bas afin de les copier et d'en incrémenter certains.
Je pense qu'un bouton d'ajout avec quelques champs à remplir serait-plus simple mais ça me demanderas un peu de temps.
Peut-être que, avec ta vision de programmateur, tu saurais me dire si plus tard, le fait d'ajouter un bouton rajoutant des lignes serait à coupler avec ma demande actuelle et simplifierait l'ensemble?
Je ne sais pas si ma demande est claire?

voila au bon format: http://www.cjoint.com/confirm.php?cjoint=0CxnsH7tWxy
en 2.1: je vais tenter de la lancer déjà voir si ça fonctionne bien. ;)

en point 2.2:
si j'ajoute une valeur en E21, je n'ajouterais des valeur en P21 et Q21 que plus tard, mais par contre je souhaiterais que ma macro ne se lance donc qu'après avoir entré des valeurs en P et Q.

la macro fonctionne parfaitement en lancement manuel. ;)

désolé, je vais finir par y arriver:
http://www.cjoint.com/data/0CxpOjUuRg3.htm

Oui, en gros quand P et Q sont remplis, mais parfois Q n'est pas rempli.
Mais en fait je viens de voir que ma formule pourrais être légèrement modifiée.
On pourrait mettre O = vide si P= vide
et O = HS si P = HS.
O = OK si P contient une valeur numérique.

Ah merci.
J'ai retravaillé l'ensemble d'après ce que tu m'as fait:
Option Explicit

Public Sub MAJcO()
Dim li1 As Long, li2 As Long, li As Long
li1 = 4
li2 = 15
For li = li1 To li2
  If Range("P" & li).Value & Range("Q" & li).Value = "" Then
    Range("O" & li).Value = ""
  Else
    If Range("P" & li).Value = "HS" Then
      Range("O" & li).Value = "NOK"
    Else
        If IsNumeric(Range("P" & li).Value) Then
      Range("O" & li).Value = "OK"
        End If
    End If
  End If
Next li
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim li As Long
If Not Intersect(Target, Columns("P:Q")) Is Nothing Then
  Application.EnableEvents = False
  li = Target.Row
  If Range("P" & li) <> "" Then
    If Range("P" & li).Value = "HS" Then
      Range("O" & li).Value = "NOK"
        If IsNumeric(Range("P" & li).Value) Then
        Range("O" & li).Value = "OK"
    Else
      Range("O" & li).Value = ""
        End If
    End If
  End If
  Application.EnableEvents = True
End If
End Sub

voilà les modif.
par contre désolé mais je ne comprend pas le "worksheet_change..."
je l'ai modifié et je pense que ce n'était pas à faire.
Je pense que ma formule avec les conditions modifiées dans le post plus haut simplifie les choses.
C'est dingue. Des formules utilisées depuis longtemps parfois on se rend compte qu'elle sont bien simplifiable.

mais elle sert à quoi cette procédure exactement?
j'arrive pas à comprendre comment elle tourne, notamment pour ce qui suit

If Not Intersect(Target, Columns("P:Q")) Is Nothing Then
  Application.EnableEvents = False

1. Cette procédure, comme son nom l'indique, réagit a tout changement dans la feuille. Toi tu ne veux faire quelque chose que si la changement se fait en colonne Q donc, si la cellule cible (target : celle qui a changée dans la feuille) est dans une des colonne P ou Q alors on fait
2. Tu peux supprimer les deux lignes

Application.EnableEvents = false  et true

3. Tu peux aussi te contenter de

If Not Intersect(Target, Columns("P")) Is Nothing Then 

si la colonne Q n'intervient plus

En fait là si je met uniquement la colonne P et que j'ajoute une valeur en P et bien rien ne se passe.
Sauf si je relance manuellement la macro.
Si je met tout le second bloque en commentaire la macro se déroule bien tout de même.
Est-ce normal que ces deux procédures soit dans deux sub différents?

En fait là si je met uniquement la colonne P et que j'ajoute une valeur en P et bien rien ne se passe. Sauf si je relance manuellement la macro.
De quelle macro parles tu ?
Ici la macro Wokssheet_Change déclenchée uniquement par un cahnement en colonne P
https://www.cjoint.com/?3CyoGI2RbKr

http://www.cjoint.com/data/0CypU5HVB2V.htm
je ne comprend pas pourquoi cela ne fonctionne pas sur mon fichier.
il me semble pourtant que la copie est bonne mais si j'ajoute une valeur je n'ai pas automatiquement un lancement de la macro pour la ligne en question