* Bonjour, *

Je n'arrive pas résoudre le problème suivant :
A partir d'un UserForm, la cellule A2 de la feuille nommée "Données" n'est pas vide. Seule la cellule A3 est sélectionnée et se complète.
Pourquoi les cellules suivantes A4, A5, ..., A10 ne se complètent pas en boucle tant que l'UserForm n'est pas fermé ? Quelle correction faut-il apporter ?

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
Private Sub OK_Click()
Dim. Décalage As Integer
Sheets("Données").Select
If Range("A2").Value = "" Then
Décalage = 0
Range("A2").Select
Else
Décalage = 1
Position = Range("A1").End(xlDown).Address
Range(Position).Select
Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(Décalage, 0).Range("A1").Select
ActiveCell.Value = Distributeur
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Userform_Activate()
Dim DerDistributeur As String
DerDistributeur = Range("B2").End(xlDown).Address
Distributeur.RowSource = ("B2:") & DerDistributeur
Distributeur. ListIndex = 0
End Sub
Vous en remerciant par avance.


Cordialement.