[COLOR="DarkSlateGray"][B]Sub MoyMob()
Dim plg As Range, moy As Range, dat(), i&
Set plg = Range("K4")
Set moy = Range("I2:I13")
ReDim dat(0 To moy.Rows.Count - 1, 1 To 1)
For i = 0 To UBound(dat, 1)
dat(i, 1) = MoyMobN(plg.Offset(i, 0), 1, 12)
Next i
moy.Value = dat
End Sub[/B][/COLOR]