Sub Maj_reste_a_livrer()
Dim nb_ligne_res As Integer 'nombre de ligne de resultats
Dim nb_ligne_liv As Integer 'nombre de ligne de reste à livrer
Dim j As Integer, i As Integer
Sheets("Resultats").Activate
nb_ligne_res = WorksheetFunction.CountA(Range("A:A"))
Sheets("Reste à livrer").Activate
nb_ligne_liv = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To nb_ligne_res 'boucle sur les résultats de contrôle
j = WorksheetFunction.Match(Worksheets("Resultats").Cells(i, 4).Value, Worksheets("Reste à livrer").Columns(1), 0) 'Toujours le même probléme à ce niveau la!
If Sheets("Resultats").Cells(i, 10).Value = "KO" Then ' si objet KO intégration des données de "Resultats" dans "Reste à livrer"
Sheets("Reste à livrer").Cells(j, 6) = Sheets("Resultats").Cells(i, 1)
Sheets("Reste à livrer").Cells(j, 7) = Sheets("Resultats").Cells(i, 11)
Sheets("Reste à livrer").Cells(j, 8) = Sheets("Resultats").Cells(i, 12)
Sheets("Reste à livrer").Cells(j, 9) = Sheets("Resultats").Cells(i, 13)
End If
If Sheets("Resultats").Cells(i, 10).Value = "OK" Then 'si objet "OK" ou "RET" supression de la ligne dans "Reste à livrer" et "j=j-1" pour ne pas rater de ligne...
Sheets("Reste à livrer").Rows(j).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub