bonjour
pas sur d'avoir compris, surtout sans fichier et sans savoir ce que tu veux...mais essaie un truc du genre
set NomZone=range("EK8:EW8")
With ActiveSheet.UsedRange
NomZone.AutoFill NomZone & .Rows(Range("Adherents").Rows.Count).Row), xlFillValues
End With