Dim wk As Workbook, cc As Worksheet
Set wk = ActiveWorkbook
Set cc = Sheets("Correspondances Champs")
'ton code
'quelque soit le classeur actif c'est sur la feuille "Correspondances Champs"
'du classeur wk que sera renseigné la valeur ci dessous
cc.Range("A1").Value = 12