Bonjour,
suite à ta demande en MP, une proposition (vite faite)
Sub MàJ()
'
' MàJ Macro
'
Dim C As Range, i As Long, Sh As Worksheet, Plage As Range, Ligne As Variant, listefeuilles(), ctrf
ctrf = -1
For Each Ws In ThisWorkbook.Worksheets 'on établit la liste des feuilles
D = Mid(Ws.Name, 2, 1)
If D >= "A" And D <= "Z" Then 'nom en majuscule => feuille à numéroter
ctrf = ctrf + 1
ReDim Preserve listefeuilles(ctrf)
listefeuilles(ctrf) = Ws.Name
End If
Next Ws
For Each wsn In listefeuilles
Set Ws = Sheets(wsn)
dl = Ws.Cells(Rows.Count, "BA").End(xlUp).Row
Set plm = Ws.Range("BA1").Resize(dl)
With Sheets("Tableau")
Set Plage = .Range("BA2", .Cells(.Rows.Count, "BA").End(xlUp))
For Each C In Plage
Ligne = ""
On Error Resume Next
Ligne = Application.WorksheetFunction.Match(C.Value, plm, 0)
If Err = 0 Then
On Error GoTo 0
If IsNumeric(Ligne) Then
C.Offset(, 2).Value = Ws.Cells(Ligne, "BC").Value
C.Offset(, 3).Value = Ws.Cells(Ligne, "BD").Value
End If
End If
Next C
End With
Next wsn
'
End Sub