RESOLU - Modifier code réalisé par vgendron

[castor30]

Bonjour,
Je suis avec Excel 2003

Le code ci-après réalisé par vgendron, fonctionnait très bien, mais voilà, j'ai du insérer 3 colonnes dans la feuille Base et du coup mon champ nommé "MaListNom" est inutile. J'ai donc nommé mes champs "NomPrenom" & "Tel"
Mais peut-on concaténer deux champs nommé...?
Comment modifier le code...?
Je vous remercie pour l'aide et vos connaissances que vous m'apporterez.

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

 

[castor30]

Je viens de réussir et vous mets le code modifié
Je vous souhaite une bonne journée

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
With Sheets("Visite")
If .Range("A2") = "" Then

Range("NomPrenom").Rows(I).Copy Destination:=.Range("A2")
Range("Tel").Rows(I).Copy Destination:=.Range("C2")
Range("MaListAdresse").Rows(I).Copy Destination:=.Range("A3")
Else
Range("NomPrenom").Rows(I).Copy Destination:=.Range("A65536").End(xlUp).Offset(1, 0) '("MaListNom")
Range("Tel").Rows(I).Copy Destination:=.Range("C65536").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