Copier valeur jusqu'à la dernière cellule de la colonne

Bonjour le Forum,

Comme le titre l'indique je cherche à affecter une valeur à toute les cellule de la colonne A à partir de A2 jusque la dernière ligne non vide et ceux à chaque classeur du dossier.

J'ai commencé avec ce bout de code mais cela ne fonctionne pas

Merci d'avance de votre aide

K.

Sub Valeur()
Dim i%, NbC%, Chemin$, NomFichier$

    Chemin = ActiveWorkbook.Path & "\"
    Application.ScreenUpdating = False
    NbC = Range("A65536").End(xlUp).Row

        For i = 5 To NbC
            NomFichier = Cells(i, 1)
            Workbooks.Open Filename:=Chemin & NomFichier
                Range("A2").Select
                ActiveCell.FormulaR1C1 = "Valeur"
                     Range("A2").AutoFill Destination:=Range("Tableau1[Colonne1]")
                Range("Tableau1[Colonne1]").Select
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        Next i
End Sub

Bonjour

Le code:

Sub Valeur()
Dim i%, NbC%, Chemin$, NomFichier$

    Chemin = ActiveWorkbook.Path & "\"
    Application.ScreenUpdating = False
    NbC = Range("A" & Rows.Count).End(xlUp).Row

        For i = 5 To NbC
            NomFichier = Cells(i, 1)
            Workbooks.Open Filename:=Chemin & NomFichier
            Range("Tableau1[Titre]").Value = "Valeur"
            ActiveWorkbook.Save
            ActiveWorkbook.Close
        Next i
End Sub

Remplacez "Titre" dans "Tableau1[Titre]" par le titre de la colonne A.

Remplacez "Valeur" par la variable contenant la valeur.

Cdlt

Bonjour Arturo83,

Merci pour ton aide.

Cdt

K.