Problème sur prolongement de fontion (autofill)

Bonjour à tous, je poste ce message parceque j'ai 1 problème sur 1 instruction alors que ça devrait marcher normalement ! Si vous pouviez m'aider ça serait gentil...

Parti du code :

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 ça génère le souci

End Sub

Bonjour,

Tu demandes à effectuer une recopie incrémentée de la plage G5:H5 sur la plage G5:V6 ???

Essaie donc de le faire en manuel.

A+

J'ai tenté en manuel. En fait j'ai trouvé la solution par hasard. il fallait juste enlever " Range("G5:H5").Select " !

Comme quoi le hasard fait bien les choses (merci jp ).

A+