Sub ModifManu()
Dim fin As Integer, FinMono As Integer
Dim MonDico
Set MonDico = CreateObject("scripting.dictionary")
Dim Tablo2() As Variant
Dim Tablo() As Variant
With Worksheets("Mono2")
fin = .Range("D" & .Rows.Count).End(xlUp).Row
Tablo2 = .Range("D3:N" & fin).Value
End With
For i = LBound(Tablo2, 1) To UBound(Tablo2, 1)
valeur = ""
For j = 6 To 11
valeur = valeur & "-" & Tablo2(i, j)
Next j
MonDico.Add Tablo2(i, 1), valeur
Next i
With Worksheets("Mono")
FinMono = .Range("D" & .Rows.Count).End(xlUp).Row
Tablo = .Range("D3:N" & FinMono).Value
On Error Resume Next
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
For j = 6 To 11
Tablo(i, j) = Split(MonDico(Tablo(i, 1)), "-")(j - 5)
Next j
Next i
.Range("D3:N" & FinMono) = Tablo
End With
Set MonDico = Nothing
End Sub