Sub TransfereTableau()
Dim MesDonnees() As Variant
Dim FinLig As Integer
Dim Lig As Integer
Dim Col As Integer
Dim Lieu As String
Dim Mois As Integer
Dim annee As Integer
Dim nombre As Integer
Lieu = Cells(2, 6)
Mois = Cells(2, 7)
annee = Cells(2, 8)
Sheets("BD").Select
FinLig = Range("A1").End(xlDown).Row
ReDim MesDonnees(FinLig - 2, 1)
For Col = 1 To 2
For Lig = 2 To FinLig
MesDonnees(Lig - 2, Col - 1) = Cells(Lig, Col)
If MesDonnees(Lig - 2, 0) = Lieu And Month(MesDonnees(Lig - 2, 1)) = Mois And Year(MesDonnees(Lig - 2, 1)) = annee Then
nombre = nombre + 1
Else
End If
Next Lig
Next Col
Cells(3, 10) = nombre
End Sub
End Sub