Sub Import() ' Coller à partir de A2 puis une ligne sur deux
Sheets("Base").Select
'Application.Goto Reference:="MalistNom"
For i = 1 To Range("MaListNom").Rows.Count Step 1
With Sheets("Visite") '.Range("A2:D2")
If .Range("A2") = "" Then
Range("MaListNom").Rows(i).Copy Destination:=.Range("A2")
Range("MaListAdresse").Rows(i).Copy Destination:=.Range("A3")
Else
Range("MaListNom").Rows(i).Copy Destination:=.Range("A65536").End(xlUp).Offset(1, 0)
Range("MaListAdresse").Rows(i).Copy Destination:=.Range("A65536").End(xlUp).Offset(1, 0)
End If
End With
Next i
Sheets("Base").Select
Application.CutCopyMode = False
End Sub