Recherchev et copier dans une cellule les données

Sub Macro2()
Dim F As Object 'déclare la variable F (onglet FP)
Dim V As Object 'déclare la variable V (onglet Variables)
Dim M As Byte 'déclare la variable M (onglet Mois)
Dim COL As Byte 'déclare la variable COL (COLonne)

Set F = Sheets("FP") 'définit l'onglet F
Set V = Sheets("Variables") 'définit l'onglet V
M = Month(F.Range("F2").Value) 'définit le mois M
COL = M + 1 'définit la colonne COL
V.Cells(4, COL).Value = F.Range("M4:N4").Value 'récupère la valeur du cumul des heures travaillées
V.Cells(4, COL).NumberFormat = F.Range("M4").NumberFormat 'récupère le format de nombre
V.Cells(5, COL).Value = F.Range("M5:N5").Value 'récupère la valeur du cumul des jour travaillés
V.Cells(5, COL).NumberFormat = F.Range("M5").NumberFormat 'récupère le format de nombre
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'si n'importe quoi en F2...
With Feuil4 'CodeName de la feuille de destination
.Cells(4, Application.Match([F2], .[1:1], 0)).Resize(2) = [M4].Resize(2).Value
End With
End Sub