Calcul max et concaténation dans VBA Excel

Bonjour,
J'ai une erreur d'executin (1004) quand j'execute mon code (voir ci-dessous).
En effet, je souhaiterais mettre en place une numérotaion automatique de factures de la façon suivante (en se basant sur la date facture):
-1er car. : Dernier chiffre de l'année (pour 2008 ==> 8).
- 2ème au 4ème car. : Compteur du nombre de factures
- 5ème au 6ème car. : Mois d'émission de la facture (Aout ==> 08).
Je le fais en 2 temps, je regarde d'abord dans les numros existants pour avoir le max du compteur (2 au 4 eme car), puis je le concatène avec l'année et le mois de la date facture comme suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Compteur() Dim F As Integer   For F = 2 To 200 If Cells(F, 5).Value = "" Then Cells(F, 6).Value = 0   Else Cells(F, 6).Value = Mid(Cells(F, 5), 2, 3) End If   Next F End Sub   Sub NumFact_Auto()   Dim K As String Dim M As String Dim N As String Dim myRange As Range Set myRange = Worksheets("Recettes").Range("F2:F200") K = Application.WorksheetFunction.Max(myRange) M = "=RIGHT(Year(I62),1)" N = Mid(Format(ActiveCell.Offset(0, 4).Value, "dd/mm/yyyy"), 4, 2) ActiveCell.Value = M & """" & K & """" & N   End Sub

---

Merci par avnace pour votre aide.

Salut pontoise et le forum
Où est l'erreur ? Quelle ligne ? C'estb pas un site qui s'amuse à trouver des devinettes!!!
Tu veux obtenir quelle formule pour ta cellule active ?
A+

jour tout le monde
essaye comme ça

Code:

---

1 2 3 4 5 6 7 8

Sub test() Set myRange = Worksheets("Recettes").Range("F2:F200") K = Application.WorksheetFunction.Max(myRange) M = Right(Format(Year(Date), 0), 1) N = Format(Month(ActiveCell.Offset(0, 4).Value)) MsgBox M & K & N End Sub

---

. mais petits conseil :
n'utilise pas activecell, qui sait ou sera le pointeur, et si la cellule offset 4 n'est pas une date, tu aura une erreur
si tu ne prend que le dernier chiffre de l'année, en 2010, tu aura 0

Merci, ça marche.