Sub remibob()
Dim TablIni, i As Long, DerLig As Long, x As Long
Application.ScreenUpdating = False
x = 1
DerLig = Worksheets("Importation SWIP - NO SWIP").Range("J" & Rows.Count).End(xlUp).Row
TablIni = Worksheets("Importation SWIP - NO SWIP").Range("A2:Q" & DerLig)
With Worksheets("Données Swip No Swip")
For i = LBound(TablIni) To UBound(TablIni)
If TablIni(i, 16) <> 0 Then
If TablIni(i, 12) <> True Then
Select Case TablIni(i, 9)
Case 3, 4, 5, 6, 11, 12, 13, 14, 19, 20, 21, 22
Case Else
' ecritures
x = x + 1
.Cells(x, 1) = TablIni(i, 10)
.Cells(x, 2) = TablIni(i, 9)
End Select
End If
End If
Next
End With
Application.ScreenUpdating = True
End Sub