Bonjour,

Voici le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim nb_ligne as Long
 
For Each wk In Worksheets
 
nb_ligne = wk.Range("G5").CurrentRegion.Rows.Count + 4  
 
wk.Range(Cells(6, 1), Cells(nb_ligne, 1)) = wk.Cells(2, 3) 
wk.Range(Cells(6, 2), Cells(nb_ligne, 2)) = wk.Cells(2, 4) 
 
Next
Avec ce code j'obtient une erreur de type "erreur Method 'Range' of object 'Worksheet' failed".

Lorsque j'active la feuille par wk.Activate, le code fonctionne, mais je ne souhaite pas activer les feuilles.

Merci !!

Cordialement,