Bonjour a tous,

Je suis en train de créer une macro excel qui remplisse automatiquement une fiche a partir d'un tableur excel.

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
23
24
25
26
For i = 446 To NbLigne
        'Création de la fiche
        Workbooks(NAME_SrcFile).Sheets(NomFiche).Select
        Sheets(NomFiche).Copy
 
 
        'Tranfert des données
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("A" & i).Copy Range("C5:H5")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("B" & i).Copy Range("C8:H8")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("C" & i).Copy Range("C6:H6")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("J" & i).Copy Range("C7:H7")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("K" & i).Copy Range("C10:H10")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("L" & i).Copy Range("C11:H11")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("M" & i).Copy Range("C12:H12")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("N" & i).Copy Range("C13:H13")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("O" & i).Copy Range("C14:H14")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("P" & i).Copy Range("C16:H16")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("Q" & i).Copy Range("C17:H17")
        Workbooks(NAME_SrcFile).Sheets("Changement").Range("R" & i).Copy Range("C18:H18")
 
        For n = 4 To 9
 
            If Workbooks(NAME_SrcFile).Sheets("Changement").Cells(n, i).Value = "NON" _
            Then Range(9 & n - 1).ClearContents
 
        Next
Le compilateur rentre bien dans ma boucle mais il ne supprime rien. Pourriez vous m'aider svp?
(j'ai commencé hier a apprendre le VBA, soyez indulgent)

Merci d'avance