Bonjour à tous,
J'ai un sushi avec mon code :
Sub Macro_Mise_a_Jour_Societe()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
If [a1].Value = 1 Then
Set classeurSource = Application.Workbooks.Open("Fichier1.xls", , True)...