Option Explicit
Sub TestClasseurExiste()
Dim nomClasseur As String
nomClasseur = NomFichierJP & ".xlsx"
If ClasseurExiste(nomClasseur) Is Nothing Then
Set C_DestJP = Workbooks.Open(ChemJP & NomFichierJP & ".xlsx")
Else
Set C_DestJP = Workbooks(nomClasseur)
End If
End Sub
Function ClasseurExiste(c As String) As Workbook
On Error Resume Next
Set ClasseurExiste = Workbooks(c)
End Function