Bonjour à tous,

J'ai fais une macro pour dupliquer les lignes de mon fichier si la colonne BX présente une chaine de caractère.
Si BX <> de vide alors copie de la ligne, insertions d'une ligne en dessus et copie de la ligne.
Puis suppression des données et collage de la donnée de BX.

La Macro fonctionne correctement jusqu'au trois dernière ligne ou le Whiel passe directement en end sub.
Je pense qu'il s'agit d'un pb dans ma variable mais je ne parviens pas l'identifier.

Je suis débutant et il me semble que la solution est à portée de main mais je préfère m'en référer aux pros du forum :

Ci-dessous ma macro :

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
20
21
22
23
24
25
26
 
Sub Duplik()
 
Range("BX2").Select
 
der = Range("a50000").End(xlUp).Row
 
While ActiveCell.Row <= der
 
If ActiveCell <> "" Then
    ActiveCell.Offset(1).EntireRow.Insert
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1).EntireRow
    ActiveCell.Copy
    ActiveCell.Offset(1, -1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.Offset(0, 1).ClearContents
    ActiveCell.Offset(-1, 1).ClearContents
    ActiveCell.Offset(1, 1).Select
 
    Else
        ActiveCell.Offset(1, 0).Select
 
End If
Wend
End Sub
Merci d'avance