Bjr,

Je désire réaliser un "Autofill" (Etendre une valeur présente dans la première cellule de la colonne A jusqu'a la premiere cellule vide de la colonne B).
Le problème est au niveau de ma "Destination" car ma premiere cellule vide de B change régulièrement.

J'ai réalisé le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
 
Dim C As Variant
 
For i = -1 To -1
 
C = ActiveCell.End(xlDown)(2).Select
C.Offset(i, -1).Select
 
Next i
 
End Sub
J'ai l'erreur suivante : Erreur définie par l'application ou par l'objet.

Est il possible de corriger cette erreur ou conaissez vous une autre solution qui fonctionne??

Merci