Bonjour,
que signifie cette ligne ?
WsA.Cells(i, 17).Value = Fetten(1) ' ????
vu que fetten(1) n'est défini nulle part
En attendant, fais un test avec ceci:
Sub Cas1b()
'Si le "pri" est 10, 9, 8 ou "32858-00" ou "32871-00"
Dim i&, iA&, iB&, iC&, Y1& '"&" = As Long
Dim Y
Dim Y2
Dim Desti
Dim WsA As Worksheet, WsB As Worksheet, WsC As Worksheet
Dim j As Integer, k As Integer
Set WsA = Sheets("Base de donnée")
Set WsC = Sheets("Fette1")
iA = WsA.Cells(Rows.Count, 1).End(xlUp).Row
iC = WsC.Cells(Rows.Count, 1).End(xlUp).Row
For i = iA To 2 Step -1 ' on commence par le bas pour effacer des lignes
Y = (WsA.Cells(i, 6) = 10 Or _
WsA.Cells(i, 6) = 9 Or _
WsA.Cells(i, 6) = 8 Or _
WsA.Cells(i, 3) = "32858-00" Or _
WsA.Cells(i, 3) = "32871-00")
Y2 = WsA.Cells(i, 17).Value = "" ' test colonne Q = ""
If Y And Y2 Then
Set Desti = WsC.[A65000].End(xlUp) ' dernière ligne
WsA.Cells(i, 17).Value = Fetten(1) ' ????
WsA.Cells(i, 17).EntireRow.Cut Destination:=Desti(2) '
WsA.Cells(i, 17).EntireRow.Delete Shift:=xlUp
End If
Next
End Sub
P.