Bonjour à tous.

Merci à l'avance pour toutes vos réponses...

J'ai une série de cellules nommés de la même façon (Fis1, Fis2...Fis62).
Mon but est de prendre la valeur de la cellule active puis de l'envoyer dans [Fis1], puis la deuxième valeur dans [Fis2]...

J'avais pensé au code suivant mais cela ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Do Until ActiveCell = ""
    [Fis] & x = activecell.Value
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    x = x + 1
    Loop
Bref, il me manque la façon de faire passé le code de Fis1 à Fis2...

Merci un fois de plus

Dlight