Sub Import()
Dim B As Worksheet
Dim V As Worksheet
Dim derlign As Long
Dim i As Integer
Dim j As Integer
Set B = Worksheets("Base")
Set V = Worksheets("Visite")
derlign = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row
Range("MalistNom").Select
j = 1
For i = 1 To derlign Step 2
B.Rows(i).Copy V.Cells(1, j)
j = j + 2
Next i
B.Select
B.Range(A2).Select
End Sub