Sub copier()
Dim i&, fin&, fin1, aa, n&, a
With Feuil4
fin = .Range("B" & Rows.Count).End(xlUp).Row
For i = 3 To fin
If .Cells(i, 7) = "OUI" And .Cells(i, 20) = "" Then
n = 2
fin1 = Feuil1.Range("B" & Rows.Count).End(xlUp).Row + 1
For Each a In Array(2, 3, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15)
If a = 6 Then n = 6
If a = 8 Then n = 4
If a = 9 Then n = 9
Feuil1.Cells(fin1, n) = .Cells(i, a): n = n + 1
Next a
.Cells(i, 20) = "Transféré"
End If
Next i
End With
End Sub