Sub Dispatche()
Application.ScreenUpdating = False
NbLignes = Application.CountIf(Sheets("lecture_all_simple").Range("O:O"), ">0")
For i = 2 To NbLignes
Codpost = Sheets("lecture_all_simple").Range("O" & i)
For Col = 4 To 8
Sheets("Param").Activate
If Application.CountIf(Sheets("Param").Range(Cells(3, Col), Cells(1000, Col)), Codpost) > 0 Then
NameSheet = Sheets("Param").Cells(1, Col)
Sheets("lecture_all_simple").Range("A" & i & ":P" & i).Copy
Sheets(NameSheet).Range("A2:P2").PasteSpecial
Sheets(NameSheet).Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Exit For
End If
Next Col
Next i
Sheets("lecture_all_simple").Activate
End Sub