Sub TEST()
Dim NomFeuilles, i As Byte, j As Long
NomsFeuilles = Array("BLV", "GEM BW ")' ici mettre le nom des feuilles concernées
For i = 0 To UBound(NomsFeuilles)
With Sheets(NomsFeuilles(i))
For j = 14 To 88
If Not .Cells(j, "C") Like "Code" Then
.Cells(j, "B").Resize(, 5).Copy Sheets("SAISIE").Range("A65536").End(xlUp)(2)
End If
Next j
End With
Next i
End Sub