Copier la ligne au dessus de certaine condition

[mouss]

Bonjour,

Petite question concernant une macro que tu as ecrite pour moi, je voudrais savoir si il est possible de modifier un peu le codage pour faire cette fonction

En gros voila, je voudrais que si une ligne correspond aux criteres defini dans la macro, celle ci soit copié dans la sheet temporaire (ca ca fonctionne), mais egalement la ligne au dessus de la ligne repondant à ces dit criterres

D'avance merci beaucoup.


Voici le code

Sub supprime()
' Macro by Camarchepas
Dim Tourne As Long, Cible As Long
'Dim Nom As String
Tourne = 2
Cible = 2
 With ActiveSheet
  Do
  'Ne copie pas les lignes dont la valeur de la colonne B est inférieur à 1 seconde
  'Ne copie pas les lignes dont la valeur de la colonne C est supérieur à 200
  'Ne copie pas les lignes dont la valeur de la colonne F est inférieur à 100
   If .Range("B" & Tourne) >= 1 And .Range("C" & Tourne) <= 200 And .Range("F" & Tourne) >= 100 Then
    Cible = Cible + 1
    .Rows(Tourne).Copy Destination:=ThisWorkbook.Worksheets("Temporaire").Rows(Cible)
   End If
   Tourne = Tourne + 1
  Loop Until .Range("A" & Tourne) = ""
 End With

End Sub