Copier la valeur d'une cellule aléatoire voisine

Bonjour à tous,

Je voudrais savoir comment faire pour copier la valeur d'une cellule voisine sans pouvoir définir la cellule de base avec ses coordonnées. (Désolé pour le tirage de cheveux)

Je vais tenter de m'expliquer.

sur ma feuille 1, j'ai une liste de prénoms dans les cases allant de B6 à B20

j'ai aussi autant d'onglets que de prénom et chaque onglet porte le nom du prénom.

(donc nombre d'onglet total = onglets prénoms + feuille 1)

je voudrais donc pourvoir copier les cellules c? et D? avec la condition si le nom de l'onglet = le prénom (dans la liste) alors, je copie les cellules C? et D ? sur les cases A1 et B1 de ce même onglet

je pensais utiliser un bouche each pour "scanner tous mes onglets"

du style

Dim Ws As Worksheet

    'Boucle sur les feuilles du classeur.
    For Each Ws In ThisWorkbook.Worksheets
        'On trouve les coordonnées d'à coté
        If Ws.Name = Prénom sur la feuille Then ???????????

         Next Ws

ça doit être tout con mais je bloque.

Bonne journée

Troph

Bonjour

Code à tester

Option Explicit

Sub Recopie()
Dim J As Long

  For J = 6 To 20
    Sheets(Range("B" & J).Value).Range("A1:B1") = Array(Range("C" & J), Range("D" & J))
  Next J
End Sub

Si pas ça

Yep

Ça marche nickel un grand merci.

j'ai juste rajouté :

On Error Resume Next

car la feuille 1 n'est pas un prénom

ça donne ceci

Dim J As Long
On Error Resume Next
      For J = 6 To 20
       Sheets(Range("B" & J).Value).Range("A1:B1") = Array(Range("C" & J), Range("D" & J))
      Next J
    End Sub