Private Sub Worksheet_activate()
Dim derlignfinition As Integer
derlignfinition = Worksheets("KANBAN FINITION").Range("B" & Rows.Count).End(xlUp).Row
Ligne = 6
For i = 7 To derlignfinition
If UCase(Sheets("KANBAN FINITION").Range("I" & i).Value) Like "*carton*" Then
Cells(Ligne, 1) = Sheets("KANBAN FINITION").Cells(i, 3)
Cells(Ligne, 2) = Sheets("KANBAN FINITION").Cells(i, 4)
Cells(Ligne, 3) = Sheets("KANBAN FINITION").Cells(i, 9)
Ligne = Ligne + 1
End If
Next
End Sub