Aller d'un résultat à une cellule

Option Explicit 

Sub reporter_donnees_jour() 
Dim M_mois As String, Jour As Byte, Donnee As Range 
Dim Lig As Byte, Mois As String * 2 

     'mémorisation des données de travail 
     With Sheets("SK_Fichier_SS") 
          M_mois = .Range("periode") 
          Jour = .Range("mat") 
          Set Donnee = .Range("C4:E4") 
     End With 
      
     ' conversion mois littéraire 
     With Sheets("feuil4") 
          Lig = .Columns(2).Find(M_mois, .Range("B65536")).Row 
          Mois = .Cells(Lig, 1) 
     End With 
      
     'report des données du jour du mois 
     With Sheets(Mois) 
          .Range(.Cells(Jour, 4), .Cells(Jour, 6)) = Donnee.Value 
          .Activate 
     End With 
      
End Sub