Sub test2()
Dim CL1 As Workbook, NoFeuille, LaFeuille As Worksheet
Set CL1 = ActiveWorkbook
NbFeuilles = CL1.Worksheets.Count
For Each LaFeuille In CL1.Worksheets
[COLOR="darkred"][B]MsgBox LaFeuille.Index & " " & LaFeuille.Name[/B][/COLOR]
If lcase(LaFeuille.Name) = "transfert" Then
[COLOR="DarkRed"][B]MsgBox LaFeuille.Index & " " & LaFeuille.Name[/B][/COLOR]
NoFeuilleSuivante = LaFeuille.Index + 1
'Exit For 'Valide cette ligne, c'est "mieux"
End If
Next
For NoFeuille = NoFeuilleSuivante To NbFeuilles
'Ton code de copie
Next
End Sub