Private Sub Workbook_Open()
Dim waux As Worksheet, w As Worksheet, nf&, F$, j As Byte, i As Byte
Application.ScreenUpdating = False 'fige l'écran
Application.DisplayAlerts = False 'si un fichier n'existe pas
Set waux = Workbooks.Add.Sheets(1) 'nouveau document
For Each w In ThisWorkbook.Worksheets
nf = Val(w.Name)
If nf > 0 And nf < 47 Then
F = "=IF('C:\[" & nf & "-PPI.xlsx]A'!RC="""","""",'C:\[" & nf & "-PPI.xlsx]A'!RC)"
waux.[A1:D20].FormulaR1C1 = F
For j = 1 To 4 'colonnes A à D
For i = 1 To 20
If waux.Cells(i, j).Text <> "" Then _
w.Cells(i, j) = waux.Cells(i, j) Else GoTo 1
Next
Next
End If
1 Next
waux.Parent.Close False 'fermeture du document auxiliaire
End Sub