bonjour je n'arrive pas a modifier un code ,
explication :ce code permet de copier une plage de cellule dans une autre feuille avec condition
mais ce que je cherche ses la modifier pour copier cette feuille dans une feuille nommé 08 si la condition et 08 sans enlever la première condition
merci pour les personne qui pourrais m'aider
je vous joint le code


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim iHO As Long
Dim AG As Worksheet
Dim HO As Worksheet
Dim lastRow As Long
 Set AG = Worksheets("Transferes")
 Set HO = Worksheets("02")
 lastRow = AG.Cells(Application.Rows.Count, 1).End(xlUp).Row
 iHO = 1
 For iAG = 1 To 1198
 If AG.Cells(iAG, 20).Text = "02" Then
 AG.Range(iAG & ":" & iAG).copy HO.Cells(iHO, 1)
 iHO = iHO + 1
 End If
 Next