Problème sur prolongement d'une fonction

Bonjour,
J'ai un petit souci sur la dernière instruction de ma macro. J'ai aucune idée d'où ça peut venir, normalement ça devrait marcher ! Je vous mets l'extrait de ma macro si vous pouvez m'aider ça serait gentil...

Sheets("Suivi").Select
Range("E5").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = Range("F1").Value
adresse = ActiveCell.Offset(0, 17).address
Range("G5:H5").Select
Range("G5:H5").AutoFill Destination:=Range("G5:" & adresse) 'c'est ici que se génère le bug

Merci.