Sub test()
Dim T(), L&, C1&, C2&
T = Cells(1, 1).Resize(2000, 90).Value
For L = 1 To 2000
C2 = 0
For C1 = 1 To 90
If T(L, C1) Like "*jean*" Then C2 = C2 + 1: T(L, C2) = T(L, C1)
Next C1
While C2 < 90: C2 = C2 + 1: T(L, C2) = Empty: Wend
Next L
Cells(1, 1).Resize(2000, 90).Value = T
End Sub