Liaison entre deux tableau

josecarlos a écrit :

Oui,tout a fait ,merci de ta réponse .

Banzai64 tu pense que ce possible ou pas ma demande?

Cordialement

josecarlos

Bonjour, j'ai ma Macros que ne fonctionne plus, es que quelqun peu voir pour quoi s.v.p.

Merci

Bonjour

Modifies les 2 lignes

Option Explicit

Sub Recopie()
Dim Ligne As Long
Dim Colonne As Integer, I As Integer
Dim OK As Boolean
Dim F1 As Worksheet, F2 As Worksheet

  Set F1 = Sheets("Rapport Journalier")
  Set F2 = Sheets("Rapport des Heure Par Tache")
  Ligne = Day(F1.Range("AE2")) + 6
  If Application.CountA(F2.Cells(Ligne, "C").Resize(1, 28)) > 0 Then    ' Des infos entre la colonne C et la colonne AD
    If MsgBox("Données existantes on les remplace ?", vbQuestion + vbYesNo, "Remplacement") <> vbYes Then Exit Sub
    F2.Cells(Ligne, "C").Resize(1, 28).ClearContents    ' On efface de la colonne C jusqu'à la colonne AD
  End If

  For I = 13 To 35 Step 2             ' De la colonne L à la colonne AH
    Colonne = 2 + F1.Cells(10, I)     ' Colonne dans la page "Rapport des Heure Par Tache"
    ' Dans la colonne, ligne du jour on fait le total de la ligne 12 jusqu'à la ligne 32
    F2.Cells(Ligne, Colonne) = Application.Sum(F1.Range(F1.Cells(12, I), F1.Cells(32, I)))
  Next I

End Sub

Merci Banzai64.