Macro - Couper Coller ligne suivant critère

Bonjour tout le monde,

Je cherche s'il vous plait, une macro qui me permettrait de travailler mon suivi commercial :

• dans l’onglet ‘’Pipe en cours’’, couper toutes les futures lignes dont la probabilité (colonne N) est à 100% (dans l'exemple la ligne 2)
• pour venir les coller dans l’onglet ‘’Pipe validé’’
• Il faut copier tout ce qui se trouve entre la colonne A et S (le nombre de colonnes va surement évoluer plus tard)
• Supprimer les lignes désormais vides dans ‘’ Pipe en cours ‘’

Merci beaucoup pour votre aide 😊

Seb

Bonjour,

Essayez ceci:

Sub Valider()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_f1 As Long, Lig_f2 As Long, i As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("Pipe en cours")
    Set f2 = Sheets("Pipe validé")
    DerLig_f1 = f1.Range("A" & Rows.Count).End(xlUp).Row
    Lig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row + 1

    For i = DerLig_f1 To 4 Step -1
        If Cells(i, "N") = 1 Then
            Range(f2.Cells(Lig_f2, "A"), f2.Cells(Lig_f2, "S")).Value = Range(f1.Cells(i, "A"), f1.Cells(i, "S")).Value
            f1.Rows(i).Delete
        End If
    Next i
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

Merci beaucoup ! ça marche parfaitement :)