Sub TestStaticArray()
Dim MyArray As Variant
i = 3
Dim Rng As Range
Sheets("Janvier").Select
'mois=InputBox("Pour quelle mois voulez effectuer le transfert")
'Sheets(mois).Select
mois = ActiveSheet.Name
WorkbookName = ThisWorkbook.Name
MyArray = Range("ah10:ah23")
For X = LBound(MyArray) To UBound(MyArray)
' MsgBox MyArray(X, 1)
Next
Sheets("CA").Select
Set Rng = ActiveSheet.UsedRange.Find(What:=mois, LookAt:=xlWhole, _
LookIn:=xlValues)
Application.Goto Rng
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
For X = LBound(MyArray) To UBound(MyArray)
Range("D" & i).Select
ActiveCell.Value = MyArray(X, 1)
i = i + 1
Next
End Sub