Claire,
Juste une question, ta macro pourrait-elle ouvrir le second fichier ...???
Re,
Ci-dessous un code à tester ...
Sub Essai()
Dim nocarte As String, nom As String, adr1 As String, adr2 As String, tel As String, montant As String
Dim i As Integer, ii As Integer, nomfichier As String, nomfeuille As String
Dim w1 As Workbook
Dim w2 As Workbook
Dim swk As String
' Modifications temporaires pour accélérer la macro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Set w1 = ActiveWorkbook ' c'est-à-dire Workbooks("Caisse de Noël.xlsm")
nomfichier = w1.Name
nomfeuille = ActiveSheet.Name
' définir la chaine pour le second fichier
' avec la supposition que le second fichier se trouve dans le même répertoire que le fichier w1
swk = w1.Path & "\" & "Inscription caisse de noel 2014.xls"
' Ouvrir le second fichier
Workbooks.Open Filename:=swk
Set w2 = ActiveWorkbook
For i = 2 To 119
With w1
nocarte = .Range("A" & i).Value
nom = .Range("B" & i).Value
adr1 = .Range("f" & i).Value
adr2 = .Range("g" & i).Value
tel = .Range("h" & i).Value
montant = .Range("i" & i).Value
End With
For ii = 1 To 1000 Step 11
With w2
.Range("h" & ii + 2).Value = nocarte
.Range("c" & ii + 4).Value = nom
.Range("c" & ii + 4).Offset(1, 0).Value = adr1
.Range("c" & ii + 4).Offset(2, 0).Value = adr2
.Range("c" & ii + 4).Offset(3, 0).Value = tel
End With
Next ii
Next i
' Retour aux conditions initiales
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub