Importation de données d'un document excel vers un autre selon certains critères

[FC57]

Bonjour,

Je cherche à prendre des données d'un document excel (le fichier source) pour les copier vers un fichier excel de destination. Les données à copier sont celles dont la date a été définie auparavant:

QUOTE

Dim LBDdate As Date
PBDdate As Date
Dim WD As Integer

LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Sheets("Sheet1").Range("C15") = LBDdate
Sheets("Sheet1").Range("C16") = PBDdate

WD = Weekday(LBDdate)
Sheets("Sheet1").Range("E15") = WD

' on s'assure que la date insérée ne soit pas un samedi ou un dimanche '

On Error GoTo ErrorHandler
If WD = 7 Then
Err.Number = 521
ElseIf WD = 1 Then
Err.Number = 522
ElseIf WD = 2 Then
Sheets("Sheet1").Range("C16") = DateDiff("d", 3, LBDdate)
Else: Sheets("Sheet1").Range("C16") = DateDiff("d", 1, LBDdate)
End If

ErrorHandler:
Select Case Err.Number
Case 521
MsgBox "A business day cannot fall on a saturday", vbOKOnly, "error 521"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
Case 522
MsgBox "A business day cannot fall on a sunday", vbOKOnly, "error 522"
LBDdate = InputBox("Enter the date of last business day", LBDdate, 0)
End Select

UNQUOTE

Comment utiliser une boucle pour dire que tant que la date insérée dans les cellules de la colonne A est égale à LBDdate, on prend les identifiants des cellules correspondantes dans le colonne B ?

Merci par avance.

Cédric