Problème de listbox - Problème résolus

bonsoir a tous,
ce message s'adresse notamment a Luki et Hervé qui mon bien aidé. le problème est résolu.


Dim num As Variant
Dim num1 As Variant

Range("POrdre").Select '
Range("AS25").Activate
Selection.Sort Key1:=Range("AS25"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

' La partie de dessus permet d'ordonné les ligne en ordre décroissante toutes les cellule qui on 1 ( cellule qui permette de déterminé si la lignedoit être charger dans la lisbox)

For i = 1 To Range("PTableauVirementAutoExterne").Rows.Count
If Range("PTableauVirementAutoExterne").Cells(i, 8).Value = "1" Then
num = num + 1
End If
Next i

'on rajoute 1 a la variable a chaque fois que la cellule a pour valeur 1

num1 = num + 24

Range("Y25:AR" & "" & num1).Select
SélectionVAEModifier.List() = Range("Y25:AR" & "" & num1).Value

Je vous remercie du temps et de l'aide que vous m'avez apporter