Suppression systématique de mots de moins de 3 lettres

Bonjour,

J'ai besoin d'une macro me permettant de supprimer tous les mots entre guillemets de moins de 4 lettres, ceci dans une colonne constituées de séries de noms entre guillemets et séparés de OR.

exemple de cellule:

"NGFR^t" OR "Ngfr^-" OR "p75(III)^-" OR "p-" OR "p75" OR "p75^NGFR" OR "TR-" OR "p75^NTR KO" OR "p75^NTnull" OR "p75^I-" OR "p75NTR-" OR "p75R/ExI-" OR "p75e3-"

Dans ce cas, par exemple, je souhaite obtenir:

"NGFR^t" OR "Ngfr^-" OR "p75(III)^-" OR "p75^NGFR" OR "p75^NTR KO" OR "p75^NTnull" OR "p75^I-" OR "p75NTR-" OR "p75R/ExI-" OR "p75e3-"

Merci d'avance pour votre aide

Sandre

Je suppose que tes lignes sont en colonne A de la feuille Feuil1

Sub toto()
With Sheets("Feuil1")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
x = Split(.Cells(i, 1).Value, " OR ")
For j = LBound(x) To UBound(x)
If Len(x(j)) >= 6 Then
mot = mot & x(j) & " OR "
End If
Next j
.Cells(i, 2) = Left(mot, Len(mot) - 4)
mot = ""
Next i
End With
End Sub

Merci beaucoup pour ton aide mais je ne sais pas trop comment utiliser ta macro. Pour plus de précision, voici le tableau. Tu peux m'aider à le faire fonctionner dans ce fichier ?

Fait

Trop top ! merci beaucoup.