bonjour je me teste a vb jy connai pa gd chose encore !
voila jaimerai ke kkun me dise comment faire pour modifier la requete suivante pour l'appliquer a plusieurs colonnes selectionnees sur excel !
merci pour vos reponses...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Sub ajoute()
    Dim i As Integer
ligne1:
    If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select: GoTo ligne1
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
    ActiveCell.Offset(1, 0).Select
    GoTo ligne1:
ligne99:
    Range("A1").Select
End Sub