Pb sur un VBA Excel

bonjour
j'ai fait un petit vba pour generer une série de fichier excel a partir d'un modele mais il plante sur une ligne toute bete
si kkun voit une erreur des fois :

Sub GenererListeFormulaires()
    Dim i As Integer
    Dim Client As String
    Dim Site As String
    Dim Chemin As String
    Dim N1 As String
    Dim N2 As String
       
    Chemin = "V:\"
    Modele = "V:\Formulaire Modele.xls"
    N1 = ActiveWorkbook.Name
       
    Workbooks.Open Filename:=Modele, Editable:=True
    ActiveWorkbook.Sheets("Enquete").Select
    N2 = ActiveWorkbook.Name
   
    For i = 3 To 120
        Workbooks.Item(N1).Activate
        Range("A" & i).Select
        Client = ActiveCell.FormulaR1C1
        Range("B" & i).Select
        If ActiveCell.FormulaR1C1 <> "" Then Site = ActiveCell.FormulaR1C1
        If (Client = "") And (Site = "") Then Exit For
        If (Client <> "") Then
            Workbooks.Item(N2).Activate
            Range("B35").Select     '<<<<<===== PLANTAGE SUR CETTE LIGNE
            ActiveCell.FormulaR1C1 = Site
            Range("D35").Select
            ActiveCell.FormulaR1C1 = Client
            Range("F35").Select
            ActiveCell.FormulaR1C1 = Format(Now, "dd//mm//yy")
            ActiveWorkbook.SaveAs (Chemin & "Enquete Satisfaction - " & Client & ".xls")
        End If
    Next
    ActiveWorkbook.Close
End Sub

Merci d'avance

à mon avis ça peut venir de tes N1 et N2
Essayes de faire une macro enregistrée de ce que tu veux faire.
tu y verras peut être plus claire

TBBUIM

bah apparament c'était ca.
c'est bizarre tout de meme, sous VB6 quand je me sert d'excel je n'ai jamais eu besoin de préciser ActiveSheet lors d'un Range.
Merci

Content d'avoir pu t'aider, n'oublies pas de valider la réponse pour que les autres utilisateurs puissent en profiter.

++

Pierrick