Recherche feuille et copier coller

Bonjour a Tous

j'ai un classeur avec plusieurs feuilles et un TCD

et cette macro qui ma permis de créer les feuilles

Sub copie()
col = 2
ligne = Range("B" & Rows.Count).End(xlUp).Row
'numero de la colonne de test et calcul du nb de ligne
Dim d, F As Integer 'debut et fin de zone de copie
Data = ActiveSheet.Name
d = 6 'initialisation de la plage a copier
For i = 6 To ligne
   ' MsgBox d
    If Not (Sheets(Data).Cells(i, col) = Sheets(Data).Cells(i + 1, col)) Then
        nom = Sheets(Data).Cells(i, col)
        Sheets.Add 'ajout de feuille
        ActiveSheet.Name = nom
        F = i 'valeur différente donc fin de la plage a copier
        Sheets(Data).Rows("1:5").Copy 'copie des en-têtes
        ActiveSheet.Paste Link:=True   'Copie les valeurs 'changer sheets par le nomveau nom
      Range("A6").Select
        Sheets(Data).Rows(d & ":" & F).Copy 'copie des données
        Sheets(nom).Paste Link:=True 'changer sheets par le nomveau nom
        d = i + 1 'début de la plage suivante
    End If
Next i
End Sub

je cherche une macro qui me permettrais de chercher si la feuille EXISTE et de copier les cellules et les coller sur la feuille rechercher a partir de la cellule A16.

et si le feuille n'existe pas créer la feuille et copier coller(macro si dessus).

Merci de votre aide

Bonjour a tous

voyant qu'il y a deja 19 vue et aucune reponse je vous joint un fichier afin de comprendre ce que je souhaite faire.

je reussi sur le TCD1 dans l'exemple.

Maintenant je voudrais chercher dans le TCD2 si il existe la feuille et copier coller les donner corespondante en

je l'ai fait manuellement sur l'onglet PARIS. SINON creer la feuille avec les donnés.

merci de votre aide et n'hesiter pas a me poser des questions.

Bonjour Reinruof, bonjour le forum,

J'avoue que je ne sais toujours pas utiliser les TCD... Je te propose ce bout de code que j'utilise pour vérifier l'existence d'un onglet. Si ça peut t'aider...

Dim NO As Worksheet 'déclare la variable NO (Nouvel Onglet)

On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante
Set NO = Worksheets("TOTO") 'définit l'onglet NO (génère une erreur si cet onglet n'existe pas)
If Err <> 0 Then 'condition : si une erreur a été générée
    Worksheets.Add After:=Worksheets(Sheets.Count) 'ajoute un nouvel onglet en derniere posisiton
    Set NO = ActiveSheet 'définit l'onglet NO
    NO.Name = "TOTO" 'renomme l'ongle NO
End If 'fon de la condition
On Error GoTo 0 'annule la gestion des erreurs
'à partir de là, je me sers de la variable NO pour y copier les données

Bonjour et Merci ThauThème

mais ce n'est pas tout a fait ce que je cherche.

je vais essayer de decomposer ce que doit faire la Macro avec le fichier joint.

1) rechercher si l'onglet Nantes existe

si oui copier les donné du TCD2 les lignes qui contiennent Nantes et coller en ligne 16

si NON Créer la feuille et copier les donné du TCD2 les lignes qui contiennent Nantes et coller en ligne 16.

et ainsi de suite avec Marseille et Lyon

le fichier joint est un exemple j'ai plus de 300 ligne a traité .

Merci de votre aide

Bonjour le forum

Personne ne peut m'aider ?