Salut à tous j'ai une erreur d'objet avec ce code , quelqu'un peut il m'aider :
Je veux mettre la formule contenue dans E3 à toutes les cellules de la colone E
TotalLig est le nombre de lignes remplie.
 
x range("E4" ) = "=D4+O4+P4-Q4 etc..."
 
Private Sub InitResteAAffecter()
 
 
 
ThisWorkbook.Worksheets(FeuilleAll).Activate
 
Range("E3" ) = "= D3 + O3 + P3 - Q3 - R3 - S3 - T3 - U3 - V3"
 
 
Range("Cells(LigPreEcriture, ColRestaAffect)" ).AutoFill Destination:=Range("Cells(LigPreEcriture, ColRestaAffect):Cells(TotalLig, ColRestaAffect)" ), Type:=xlFillDefault
 
End Sub
 
 
Merci

Essai avec ça:
    Set Rng = Feuil1.Range("E1" )
    i = 1
    ' Nombre de lignes à mettre à jour
    maxrows = 20
    'Rng = Rng.Offset(1)
    Do
        If i < 10 Then
            MyLen = 1
        End If
        If i > 9 And i < 100 Then
            MyLen = 2
        End If
        If i > 99 And i < 1000 Then
            MyLen = 3
        End If
 
        Formule = "= D" & Right(Str(i), MyLen) & "+ O" & Right(Str(i), MyLen) & "+ P" & Right(Str(i), MyLen) & "- Q" & Right(Str(i), MyLen) & "- R" & Right(Str(i), MyLen) & "- S" & Right(Str(i), MyLen) & "- T" & Right(Str(i), MyLen) & "- U" & Right(Str(i), MyLen) & "- V" & Right(Str(i), MyLen)
        Rng.Offset(i - 1, 0).Value = Formule
        i = i + 1
    Loop While i <= maxrows
 
 
@+