'répertoire de départ = répertoire du ficher actuel
'sRep = ThisWorkbook.Path
sRep = "C:\tototo\tititi" '<- changer le répertoire de sauvegarde
'répertoire de sauvegarde
If Cells(Target.Row, "E") = "N" Then
sRep = sRep & "\NC non avéré\"
ElseIf Cells(Target.Row, "E") = "Y" Then
If Cells(Target.Row, "D") = "" Then
sRep = sRep & "\NC non corrigé\"
Else
sRep = sRep & "\NC corrigé\"
End If
Else
Exit Sub 'Problème
End If