modifier macro

Sub RempliSallesZon()
  Dim I&, J&, K&
  K = 1
  InitTab
  For I = LBound(T) To UBound(T) Step 3 'On parcourt les lignes de 3 en 3
    For J = LBound(T, 2) To UBound(T, 2) 'On parcourt les colonnes
      If T(I, J) <> "" And T(I + 1, J) <> "" Then 'a condition que les cellules  C3 et C4 ou D3 et  D4
        If (I + 2) Mod 6 = 0 Then 'astuce, plage 10-12 est en ligne 6 puis 12 ,
          If T(I - 1, J) <> "" Then
            T(I + 2, J) = T(I - 1, J)
          Else
            T(I + 2, J) = TabProf(K, 1)                ' jusqu'a W3 et W4 ne soient pas vides
            K = IIf(K = UBound(TabProf), 1, K + 1)
          End If
         Else
          T(I + 2, J) = TabProf(K, 1)                ' jusqu'a W3 et W4 ne soient pas vides
          K = IIf(K = UBound(TabProf), 1, K + 1)
        End If
      End If
    Next J
  Next I
  
  MettreResultat Feuil5, "C3", T

End Sub