Dim ws As Worksheet
Set ws=ThisWorkBook.Sheets("test")
For i=1 to 2
For j = 5 To fin
valDate = Range(ws.Cells(0, 7).Offset(j, i)).Value '<= erreur 1004 à l'exécution
valLibelle = Range(ws.Cells(0, 8).Offset(j, i)).Value '<= erreur 1004 à l'exécution
valMontant = Range(ws.Cells(0, 9).Offset(j, i)).Value '<= erreur 1004 à l'exécution
Next j
Next i