j'ai écris une code qui marche mais quand il s'agit de l'exécuter à partir d'un bouton il pose problème:
en fait il s'agit de copier dans les lignes vides des colonnes A et B les valeurs des lignes au dessus et de boucler ainsi de suite sur toute la plage:
voici donc le code que je veux exécuter à partir d'un bouton et là ça
ça marche même pas. quelqu'un a t il une idée ? s'il vous plaît!

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
16
17
18
19
Private Sub CommandButton2_Click()
 
 
Dim i As Integer, cel As Range
 
 
With Worksheets("Préparation déclaration FUE")
Application.ScreenUpdating = False
 
'boucle sur toutes les cellules des colonnes A et B
 
For Each cel In Range("A6:B" & Range("D25000").End(xlUp).Row)
    'si la cellule est vide, elle prend la valeur de la cellule du dessus
    If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value
Next cel 'prochaine cellule des colonnes A et B
 
End With
 
End Sub