Sub Bouton1_Cliquer()
Application.ScreenUpdating = False
Dim wbTarget As Workbook 'workbook where the data is to be pasted
Dim wbSource As Workbook 'workbook from where the data is to be copied
Dim CDRDate As Date
Dim CDRTime As Date
Dim CDREnd As Date
Dim Time As Date
Dim findDay As Date
Dim Var As Integer
Dim Vari As String
Set wbTarget = ThisWorkbook 'assigne ThisWorkBook(Ouvert) à la variable wbTarget déclarer en temps que fichier excel
Set wbSource = Workbooks.Open("C:\Users\alibe\Desktop\Nouveau dossier (6)\Classeur1.xlsx") 'Open
wbSource.Worksheets("Feuil1").Range(Range("A2"), Range("A2").End(xlDown)).Select 'selection of columns A2 'til end of line
CDRTime = ActiveCell.Value
wbSource.Worksheets("Feuil1").Range(Range("B2"), Range("B2").End(xlDown)).Select
GetDate = ActiveCell.Value
wbSource.Worksheets("Feuil1").Range(Range("C2"), Range("C2").End(xlDown)).Select
CDREnd = ActiveCell.Value
wbTarget.Worksheets("Counting").Range("B2:BJ2").Select
findDay = ActiveCell.Value
wbTarget.Worksheets("Counting").Range(Range("A3"), Range("A3").End(xlDown)).Select
Time = ActiveCell.Value
ActiveSheet.Range(Cells(3, 2), Cells(75602, 32)).Select
Vari = ActiveCell.Value
If Day(GetDate) = Day(findDay) Then
If Time >= CDRTime And Time <= CDREnd Then Var = Var + 1
End If
Application.Scree