Private Sub Workbook_Open()
If WorksheetFunction.CountA(Sheets("Feuil1").Range("A2:A4")) = 0 Then
Sheets("feuil1").Select
Else: Sheets("feuil2").Select
End If
End Sub
Certains de vos fils sont toujours ouverts. Si une solution vous a été apportée, pourriez-vous les cloturer. Merci de votre participation