Problèmes avec formule moyenne en vba

Bonjour,

Voilà qui, je l'espère, devrait t'aider :

Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select

Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
ActiveCell.Offset(1, -2).Select

Bon courage,

Merci à toi, ca marche nikel!!!

Hello, c encore moi,

je fais face à un autre problème...

j'essaye d'intégrer ce meme programme dans une boucle afin d effectuer l'opération pour chaque cellule de la colonne A, ca donne ca:

Sub MoyenneEURIBOR()

Dim cellules As Range
Dim nblignes As Long
Dim cpt As Long
Dim plage As Range

Range("A6").Select
Set cellules = Range(Selection, Selection.End(xlDown))
nblignes = cellules.Count

For cpt = 1 To nblignes

Range(ActiveCell, Cells.Find(What:=ActiveCell.Offset(0, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)).Select
Selection.Offset(0, 1).Resize(, 1).Select

Set plage = Selection.CurrentRegion
ActiveWorkbook.Names.Add Name:="plage", RefersTo:=Selection
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=average(plage)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, -2).Select

Next cpt

End Sub

Ca bloque au niveau du range(activecell,cells.find)... alors que ca marchait parfaitement sans boucle, qqun pour m'expliquer pkoi?

Merci