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

[miral20]

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