Bonjour à tous forum,

J'ai un petit problème d’exécution de mon code, le message suivant apparait "erreur d’exécution 91, variable objet ou variable de bloc with non défini"

Le code s’exécute bien jusqu'à la ligne 65 puis s’arrête.
Ci-joint mon code.

Merci pour votre aide et bonne journée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub passif()
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
With Sheets("SUIVIE REGU 2011")
  For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
 
      Set Rg = Sheets("BASE DU MOIS").Range("A:A").Find(What:=.Range("A" & i).Value, LookAt:=xlWhole)
      .Range("G" & i).Value = Rg.Offset(0, 8).Value
      .Range("J" & i).Value = Rg.Offset(0, 6).Value
 
  Next i
End With
 
End Sub