Duplication de ligne sous condition dans une même feuille

Bonjour à tous,

Je n'ai pas trouvé ou je n'ai pas réussi à appliquer un code existant

Merci de votre aide,

je souhaite, si une condition est respectée (valeur d'une cellule égale à 1 dans une colonne identifiée MB) copier la ligne en question et la coller en dessous.

il ne faut pas s'arrêter à la première cellule égale à 1 et s'arrêter quand la cellule en MB est vide.

Merci de votre aide,

Cordialement,

Bonjour,

à tester,

Sub test()
With Sheets("Feuil1")
 'derniere cellule de la colonne A
 LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
 'boucle de la derniere cellule jusquà la ligne 2 en remontant
 For i = LastRow To 2 Step -1
  If .Cells(i, 1) = 1 Then
    Rows(i).Copy
    Rows(i).Insert Shift:=xlDown
  End If
 Next i
End With
End Sub

Merci SabV,

Je n'ai pas testé ton code, néanmoins j'ai eu la solution par un collègue.

la voici:

Sub Macro1()

'

' Macro1 Macro

'

'

Set wksConn = Worksheets("Feuill1") ' Sélection de la feuille

lDerniereLigne = Split(wksConn.UsedRange.Address, "$")(4) ' Récupération de l'index de dernière ligne

wksConn.Activate ' Activation de la feuille

For curserLigne = 3 To lDerniereLigne 'la première ligne du tableau a traiter étant la ligne 3

'Vérification que l on est sur un Main > Creation de la Loc

If wksConn.Cells(curserLigne, 338).Value = "1" Then 'la colonne sur laquelle est la condition (1 ou 0) est en 338

' Ligne a dupliquer trouvée

wksConn.Rows(curserLigne).EntireRow.Copy

wksConn.Rows(curserLigne + 1).Insert

wksConn.Range("A" & curserLigne + 1).Select

wksConn.Range("A" & curserLigne + 1).Activate

wksConn.Paste

curserLigne = curserLigne + 1

End If

Next

MsgBox "Traitement terminé"

End Sub