Bon, j'avais compris de travers ... ^^
Voici une seconde proposition:
Sub tableau()
Dim DerLig As Long
Dim DerLig2 As Long
With Sheets("Feuil3")
DerLig = .Range("E1").End(xlDown).Row
.Range("E2:F" & DerLig).Copy
.Range("A2").PasteSpecial Paste:=xlPasteValues ', Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B2:B" & DerLig).Interior.Color = .Cells(1, 5).Interior.Color
DerLig2 = .Range("H1").End(xlDown).Row
.Range("H2:I" & DerLig2).Copy
.Range("A" & DerLig + 1).PasteSpecial Paste:=xlPasteValues ', Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & DerLig + 1 & ":B" & DerLig + DerLig2 - 1).Interior.Color = .Cells(1, 8).Interior.Color
DerLig = .Range("K1").End(xlDown).Row
DerLig2 = .Range("A1").End(xlDown).Row + 1
.Range("K2:L" & DerLig).Copy
.Range("A" & DerLig2).PasteSpecial Paste:=xlPasteValues ', Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("B" & DerLig2 & ":B" & DerLig + DerLig2 - 2).Interior.Color = .Cells(1, 11).Interior.Color
Application.CutCopyMode = False
End With
End Sub