Option Explicit
Option Base 1
Sub remplir()
Dim sh As Worksheet, i&, a&, cel As Range, aa, bb, x&, fin&, z&
With Sheets("Stat Expedition")
aa = .Range("A2:Q" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
For Each sh In Worksheets
If sh.Name <> "BPW prévisions" And sh.Name <> "Synthèse" _
And sh.Name <> "MTO-MTS" And sh.Name <> "PALLIERS" And _
sh.Name <> "Stat Expedition" And sh.Name <> "Master_Data" Then
x = CDbl(sh.Name)
fin = sh.Range("A" & Rows.Count).End(xlUp).Row
If fin < 7 Then fin = 7
bb = sh.Range("A7:I" & fin)
For a = 1 To UBound(bb)
For i = 1 To UBound(aa)
If sh.Name = aa(i, 12) And bb(a, 1) = CDbl(aa(i, 8)) Then
sh.Cells(a + 6, 2) = aa(i, 2)
sh.Cells(a + 6, 4) = aa(i, 7)
sh.Cells(a + 6, 7) = aa(i, 6): Exit For
End If
Next i
Next a
End If
Next sh
End Sub