Sub Import() ' Code de vgendron - Coller à partir de A2 puis une ligne sur deux dans Visite OKOK
If Range("A2") <> "" Then Range("SupImport").Clear
Sheets("Base").Select
For I = 1 To Range("MaListNom").Rows.Count Step 1 ' remplacé par ("NomPrenom") + ("Tel enC2")
With Sheets("Visite")
If .Range("A2") = "" Then ' ("Tel enC2")
Range("MaListNom").Rows(I).Copy Destination:=.Range("A2") ' ("Tel enC2")
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("Visite").Select
Application.CutCopyMode = False
End Sub