Bonjour,

Je pense que mon problème est simple mais je ne vois pas la solution. Le voici :
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
Sub essai()
 
    Dim row, col As Integer
 
    For row = 4 To 14
 
    For col = 15 To 20
    Sheets("Transfert").Select
    Cells(13, col).Select
    Selection.Copy
    Sheets("Rejet").Select
    Cells(row + 2, 3).Select
    ActiveSheet.Paste
 
    Next col
    Next row
 
End Sub
Mon code ne me fait pas d'erreur. Simplement je veux coller aux lignes 6, 8, 10, 12, 14 et 16. Or avec la boucle "For row", les lignes 7, 9, 11, 13, 15 se remplissent également avec #REF !

Comment lui dire qu'ils ne remplissent pas ces lignes 7, 9, 11, 13 et 15 ???

Merci de m'aider !