Sub toto()
With Sheets("Feuil1")
If Sheets("Feuil2").Range("D4:D25").Find(.Range("G16").Value, LookIn:=xlValues) Is Nothing Or _
Sheets("Feuil2").Range("H4:H25").Find(.Range("G16").Value, LookIn:=xlValues) Is Nothing Then
.Range("O19").Value = False
Else
.Range("O16").Value = .Range("O16").Value + .Range("N16").Value
.Range("E20").Value = "A"
.Range("M20").Value = "H"
End If
End With
End Sub