Bonjour
Pourquoi l' indice n'appartient pas sélection dans cette macro
merci
Sub Exist_Feuil()
Dim ws As Object
Sheets("Feuil2").Copy Before:=Sheets(1)
For Each ws In Worksheets
If ws.Name = Recap_Ecart Then
Sheets("Feuil2 (2)").Name = "Recap_Ecart_2"
Else
Sheets("Feuil2 (2)").Name = "Recap_Ecart"
End If
Next ws
End Sub
Pourquoi l' indice n'appartient pas sélection dans cette macro
merci
Sub Exist_Feuil()
Dim ws As Object
Sheets("Feuil2").Copy Before:=Sheets(1)
For Each ws In Worksheets
If ws.Name = Recap_Ecart Then
Sheets("Feuil2 (2)").Name = "Recap_Ecart_2"
Else
Sheets("Feuil2 (2)").Name = "Recap_Ecart"
End If
Next ws
End Sub