XL 2019 copier des cellules sur une autres feuilles en fonction de multiple conditions avec un code vba

Je souhaite copier des cellules sur une autres feuilles en fonction de multiple conditions, dans le sens ou :
Si dans ma feuille "HTTP_URL" colonne E il y a le mot "URI: https://www.google.dz/" copier tous les valeurs de ce mot qui existe dans la colonne F & G vers la feuille "resume " dans le tableaux (B18:C22) et ainsi de suite pour chaque mot de la colonne E.
Votre aide me sera précieuse...
Cordialement.
Merci, merci, merci.....

Voici mon code

Sub Mac()

Sheets("HTTP_URL").Select
derl = Range("E" & Rows.Count).End(xlUp).Row

j = 18
For i = 2 To derl

If Range("E" & i) = "URI: https://www.google.dz/" Then
Acces = Range("F" & i)
Niv = Range("G" & i)

Sheets("resume").Select
Range("B" & j) = Acces
Range("C" & j) = Niv

Sheets("HTTP_URL").Select
j = j + 1
End If


Next i
Sheets("resume").Select

End Sub