Option Explicit
Sub MFC_v2()
Dim c As Range, cc As Range
Application.ScreenUpdating = 0
Sheets("Feuil1").Range("g:h").Interior.ColorIndex = xlNone
For Each c In Sheets("Feuil1").Range("g:h").SpecialCells(xlCellTypeFormulas, 23)
Set cc = Sheets("Feuil3").Range("b:b").SpecialCells(xlCellTypeConstants).Find(c, LookIn:=xlValues, LookAt:=xlWhole)
If Not cc Is Nothing Then
cc.Copy
c.PasteSpecial Paste:=xlPasteFormats
End If
Next
Application.ScreenUpdating = -1
End Sub