Bonjour à tous,

Désolé je ne vois pas comment imager ce que je souhaite faire. merci d'avance a ceux qui me viendront en aide.
Je voudrais savoir s'il est possible de copier l'adresse d'une cellule d'une feuille de calcul excel dans une autre feuille en changeant juste la ligne.
Voici le code que j'utilise pour copier une feuille vers une autre, changer la valeur de certaines cellules et remplir automatiquement plusieurs cellules:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:C33")) Is Nothing Then
If Target.Count = 1 And Len(Target) > 0 Then
    'Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target
    Sheets("MODELE").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = Target
    .Range("D1:Y2") = Target
 
End With
Dim i As Integer
    i = 1
While i <= 10
With ActiveSheet
    .Range("C1") = "=Feuil1!D6"
End With
i = i + 1
Wend
 
End If
End If
End Sub
Je voudrais maintenant que D6 puisse être transformé en D7 pour remplir une autre colonne lors de la création d'une nouvelle page

Cordialement,
Theyang