Arrangeur en VBA

bonjour

j'ai besoin de votre aide tous, vous trouvé ci dessous un fichier Excel que je vais intégré dans un programme . Tout d'abord j’ai deux tableaux dans le tabeau1 Jai des cases que je doit les distribués selon la valeur de K c’est a dire si la valeur égale 1 je doit transféré à sa position indiqué dans le tableau des données (colonne case de destination) , si la valeur de K égale a 0 je doit le transféré aux tableau2 , cette fois si en cherchons seulement une case vide dans le tableau 2 , et on les supprime dans le tableau 1

CORDIALEMENT

bonjour,

une proposition via une macro

Sub aargh()
    With Sheets("feuil2")
        dl = .Cells(Rows.Count, "O").End(xlUp).Row
        For i = 16 To dl
            r = .Cells(i, "R")
            s = .Cells(i, "P")
            t = .Cells(i, "Q")
            If r = 1 Then
                .Range(t).Value = .Range(s).Value
            ElseIf r = 0 Then
                Set re = .Range("D23:M34").Find("", lookat:=xlWhole, after:=.Range("M34"))
                If Not re Is Nothing Then
                    re.Value = .Range(s).Value
                    .Range(s) = ""
                End If
            End If
        Next i
    End With
End Sub

lancer la macro via alt-F8

MERCI