en test sur les 3 plages de débuts, j'ai
Sub Copie3Plag()
Dim i%, Plag(), c As Range, PlagcellB As Range, PlagcellC As Range, PlagcellD As Range
Dim cell1 As Range, cell2 As Range, PosCell As Range, PlagCell As Range, CntPlag As Integer
Set PlagcellB = Range("B3:B7")
Set PlagcellC =...