j'avais fait une erreur ds les chiffres ,ceci permet de trouver ta chaine entre 2 chaines de tailles quelconques:
temp = "bonEEjourAAAAcommEEEentAAAcava"
ch1 = "EE"
ch2 = "AAAA"
pos1 = Application.WorksheetFunction.Find(ch1, temp, 1)
pos2 = Application.WorksheetFunction.Find(ch2, temp, pos1 + Len(ch1))
machaine = Mid(temp, pos1 + Len(ch1), pos2 - pos1 - Len(ch1))