Bonlour, j'ai un probleme avec le contrôle TextBox


voici le code de ma TextBox intitulée "feuillet1"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub feuillet1_Change()
    Range("G11:H279").Select
 
If feuillet1.Value = ("fp1" Or "fp2") Then    'Si j'ai écrit fp1 ou fp2 dans ma TextBox
        Selection.Replace What:=Range("G11").Value, Replacement:=feuillet1.Value, LookAt:=xlPart, _  'Je fait des remplacements
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End If
 
End Sub
Le code fonctionne tres bien lorsqu'il n'y a que fp1 ou que fp2; je n'arrive pas a faire une "OU" entre fp1 et fp2.

SVP, aidez-moi !

Merci. JC.