Selectionner une cellule par rapport à son contenu

Bonjour,

Ton code marche super bien.

Je te remercie, c'est sympas d'avoir des réponses aussi vite et aussi bien !!!

Bonne fin de journée

Bonjour,

Je ne vois pas d'autre façon de vous expliquer mon problème, autrement que de vous exposer mon fichier (sans mes codes de macro car trop lourd).

Le voici ci-dessous:
https://www.cjoint.com/c/EDnngGHIGDt

Ce document a pour but de connaitre la charge de travail par rapport à des semaines. Chaque données représente une tâche.
La première page "TPPC" est la source de données, où l'ont peut choisir grâce à la liste déroulante, une semaine précisément pour voir sa charge.
La seconde page "GRAPHE BJ" est le planning en détaille. Son échelle est à la semaine.

Voici la macro que j'ai réalisés, que je souhaiterais modifier afin que les semaines puisse être changer de colonne sans perdre leur données. Je souhaiterais que les données ne soit pas lié a une colonne dans mon code, mais à une semaine.

Sub MacroS24()
'
' MacroS24 Macro
'

'
    ' Selectionner la feuille "GRAPHE BJ"
    Sheets("GRAPHE BJ").Select
    ' Selectionner dans la colonne N et effacer son contenu
    Range("N3:N33").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ' Selectionner la feuille "TPPC"
    Sheets("TPPC").Select
    ' Choisir dans la liste déroulante de ne voir que les données de la semaine 24
    ActiveSheet.Range("$A$1:$J$210").AutoFilter Field:=8, Criteria1:="24"
    ' Selectionner les données de la semaines 24 et les copiés
    Columns("I:I").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    ' Selectionner la feuille "GRAPHE BJ"
    Sheets("GRAPHE BJ").Select
    ' Coller les données à la cellule "N3"
    Range("N3").Select
    ActiveSheet.Paste
    Range("N3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    ' Selectionner la feuille "TPPC"
    Sheets("TPPC").Select
    ' Selectionner dans  la liste déroulante l'ensemble des semaines
    ActiveSheet.Range("$A$1:$J$210").AutoFilter Field:=8

End Sub

Ce code n'est réaliser seulement pour la semaine 24, il y à pour chaque semaine un code quasiment identique à celui-ci (c'est pourquoi il est très lourd).

Ma question est plus détailler dans le ci-joint (seconde feuille).

Merci d'avance, je reste à votre disposition si vous ne comprenez pas, car se n'est pas évident à expliquer pour ma part donc forcément compliquer à comprendre.

Bonne journée