Option Compare Text
Sub A()
essaie_encore:
motrechercher = InputBox("entrez chaine de caractères : (2 premières lettres de l'onglet)", "information", "", vbOKCancel)
If Len(motrechercher) = 0 Then Exit Sub
If Len(motrechercher) <> 2 Then GoTo essaie_encore
Dim Tableau()
compteur = 1
For Each sh In Sheets
With sh
If Left(.Name, 2) = motrechercher Then
ReDim Preserve Tableau(1 To compteur)
Tableau(compteur) = .Name
compteur = compteur + 1
End If
End With
Next sh
If compteur = 1 Then Exit Sub
Sheets(Tableau).Select
End Sub