Bonjour à tous,
bientôt le we courge!

Voilà mon problèle. La ligne en rouge me renvoie une erreur 1004.
En gros je veux copier mes valeurs dans la colonne K (=11) à partir de la ligne 4.
Or, la colonne est vide à l'origine donc se baser sur la première cellule non-vide doit lui poser problème. Quelle solution s'offre à moi?

Merci à tous...

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
Dim montant_c As Variant
    Dim i_m As Variant
    Dim iter_m As Variant
    
    Windows("DSIC-Outil-Plan d'Activités-CSOL Fin_V0.11.xlsx").Activate
    Sheets("Coût non jh").Select
    Range(Range("G9"), Range("G9").End(xlDown)).Select
    iter_m = 9
    
    While ActiveSheet.Cells(iter_m, 7).Value <> ""
    iter_m = iter_m + 1
    Wend
    
    For i_m = 9 To iter_m
    Windows("DSIC-Outil-Plan d'Activités-CSOL Fin_V0.11.xlsx").Activate
    Sheets("Coût non jh").Select
    Range(Range("G9"), Range("G9").End(xlDown)).Select
    montant_c = Cells(i_m, 7).Value
    Windows("DSIC-Outil-Inputs_v0.3.xlsx").Activate
    Sheets("B-Budget Annuel").Select
    Cells(ActiveSheet.Cells(4, 11).End(xlDown).Row + 1, 11).Select    
    Selection.Value = montant_c
    
    Next