Insertion d'une ligne dans un tableau en VBA

salut mes amis,

j'ai utilisé ce code pour insérer une ligne sous une condition en utilisant ce code:

f = 2
While f < p
If (Cells(f, 3) - Cells(f, 2)) > 750 Then
h = f
Cells(h, 8).Select
Selection.EntireRow.Insert
End If
f = f + 1
Wend

avec p est le nombre de ligne de ma tableau qui est constitué de 3 colonnes: les deux colonnes, 2 et 3, contiennent des grandes valeurs et donc si j'ai la condition suivante cells(f,3)-cells(f,2)> 750 donc j'insère un ligne et je copie les valeurs de la ligne précedente dans la ligne inserée.

j'ai utilisé ce code pour l'insertion, il insère plusieures lignes successives.

Merci mes amis pour votre aide.