Sub Worksheet_Activate()
Dim tablo, Ligne%, Colonne%, i%, DL%
On Error GoTo Fin
DL = [A65500].End(xlUp).Row
Set Plage = Range("A1:A" & DL)
Range("B5:M" & DL).ClearContents
Application.ScreenUpdating = False
tablo = Sheets("Base").[A1].CurrentRegion
For i = 2 To UBound(tablo)
Ligne = Application.Match(tablo(i, 1), Plage, 0)
Colonne = Application.Match(tablo(i, 2), [3:3], 0)
Cells(Ligne, Colonne) = tablo(i, 3)
Next i
Exit Sub
Fin:
MsgBox " Non trouvé : " & tablo(i, 1) & " - " & tablo(i, 2) & " - " & tablo(i, 3)
End Sub