Sub A()
Feuil1.Select
Dim SER As ????????????
SER = "=MID(R18C1,19,LEN(R18C1)-18)"
Feuil4.Visible = True
Feuil4.Select
Cells.Find(What:="SER", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub