Sub Titrage_lateral(critere)
Select Case critere
Case "affaires_traitees"
Meslignes = ""
i = 1
NombreLignes = 200
While i < NombreLignes + 1
If Sheets("2011.test").Cells(i, 9).Value = "Traitée" Then
Meslignes = Meslignes & "E" & i & ":" & "Q" & i & ","
End If
i = i + 1
Wend
Meslignes = Left(Meslignes, Len(Meslignes) - 1)
Sheets("2011.test").Range(Meslignes).Select
Case "bureaux_neufs"
Meslignes = ""
i = 1
NombreLignes = 49 'fait bugguer au delà de 50 lignes
While i < NombreLignes + 1
If Sheets("2011.test").Cells(i, 15).Value = "Bureau" Then
If Sheets("2011.test").Cells(i, 16).Value = "N" Then
Meslignes = Meslignes & "E" & i & ":" & "Q" & i & ","
End If
End If
i = i + 1
Wend
Meslignes = Left(Meslignes, Len(Meslignes) - 1)
Sheets("2011.test").Range(Meslignes).Select '<================ BUG DESSUS
End Select
End Sub