Dim wb As Workbook, wb2 As Workbook, wb3 As Workbook
For Each wb In Workbooks
If wb2 Is Nothing Then If wb.Name Like "SOURCE*" Then Set wb2 = wb
If wb3 Is Nothing Then If wb.Name Like "*CIBL.xls" Then Set wb3 = wb
Next wb
If wb2 Is Nothing Or wb3 Is Nothing Then MsgBox "au moins un classeur n'a pas été trouvé"