Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "ACC*" Then Exit Sub
If Not Sh.Name Like "Conf*" Then
If IsEmpty(Sheets("Configurateur").[C2]) Or IsEmpty(Sheets("Configurateur").[C2]) Then
Sheets("Configurateur").Activate
End If
End If
End Sub