Sub Ccopy()
Dim wb1 As String, wb2 As String
wb1 = ActiveWorkbook.Name
MonNom = InputBox("Sélectionner un client")
On Error Resume Next
Sheets(MonNom).Activate
If Err <> 0 Then
MsgBox ("Erreur sur le client")
Exit Sub
End If
On Error GoTo 0
Application.ScreenUpdating = False
With Workbooks(wb1)
Workbooks.Open Filename:=".....TonFichierAOuvrir....."
wb2 = ActiveWorkbook.Name
On Error Resume Next
Sheets(MonNom).Activate
If Err <> 0 Then
MsgBox ("Client inexistant")
Workbooks(wb2).Close
Exit Sub
End If
On Error GoTo 0
.Activate
ActiveSheet.Cells.Copy Workbooks(wb2).ActiveSheet.Range("A1")
Workbooks(wb2).Close SaveChanges:=True
End With
Application.ScreenUpdating = True
End Sub