Aide pour une formule

Sub Macro1()
Dim sp As Worksheet 'déclare la variable sp (Suivi prospect)
Dim nc As Worksheet 'déclare la variable nc (Nouveaux Clients)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
Set sp = Sheets("Suivi prospect") 'définit l'onglet "Suivi prospect"
Set nc = Sheets("Nouveaux clients") 'définit l'onglet "Nouveaux clients"
For Each cel In sp.Range("A4:A" & sp.Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne A
    'condition : si la cellule de la colonne E de cel = "OUI" et la cellule de la colonne J de cel = "VENTE"
    If UCase(cel.Offset(0, 4).Value) = "OUI" And UCase(cel.Offset(0, 9).Value) = "VENTE" Then
        Set dest = nc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination dest
        Range(cel, cel.Offset(0, 2)).Copy dest 'copie les 3 premières colonne de cel dans dest
    End If 'fin de la condition
Next cel 'prochaine cellule ce de la boucle
End Sub

=E4&J4

=EQUIV("OUIVENTE";'Suivi prospect'!$N:$N;0)

=M3+EQUIV("OUIVENTE";DECALER('Suivi prospect'!$N$1;M3;0;65536-M3);0)

=SI(ESTNA($M3);"";INDEX('Suivi prospect'!A:A;$M3))

=NB.SI($M:$M;">0")

=NB.SI($J:$J;"VENTE")

=SOMME.SI($J$4:$J$28;$J4;$M$4:$M$28)

=SOMME.SI($J$4:$J$28;STXT($J31;7;20);$M$4:$M$28)

=SOMMEPROD(($J$4:$J$28=$J4)*($K$4:$K$28="VENTE"))