For i = 3 To 12
Y = Split(WbBDVenteShBDFact.Cells(k, i + 3), "|", -1)
.Activate
.Range(Cells(i, 57), Cells(i, 78)).ClearContents '***Efface les données préexistantes de la zone de saisie avant la nouvelle saisie
For j = 0 To UBound(Y) - 1
On Error Resume Next '***Traite le cas d'une cellule vierge ou ne contenant qu'une seule valeur de la base de départ
.Cells(i, 57 + j) = Y(j)
Next j
Next i