Problème de Boucle

Bonjour

Voila je débute en VBA et j'essais d'importer des N° de Badges restauration d'un onglet à un autre (ma référence est unNuméro d'identification je ne peux pas utiliser les noms de Famille ou prénom trop doublon )

J'arrive a intégrer les Premières mais si ma Case est vide je n'arrive pas à trouver ou placer la condition (je l'ai mis en vert , Je sèche complètement . Si quelqu'un peux m'aider ça serait cool,

Désolé pour mon code mais j'apprends en décortiquant d'autres codes et je les retravaille pour m'entrainer

Donc Merci d'avance d'avoir pris le temps de me lire

Naë

Public Sub pochon2()

ligneh = 5
lignep = 3

hID = Worksheets("HEBERGEMENT - RESTAU").Cells(ligneh, 16)

Do
 PID = Worksheets("pochons repas").Cells(lignep, 6)

    If PID = hID Then
        Worksheets("pochons repas").Cells(lignep, 7) = Worksheets("HEBERGEMENT - RESTAU").Cells(ligneh, 14)
        ligneh = 5
        lignep = lignep + 1
        Else
            Do
             ligneh = ligneh + 1
             hID = Worksheets("HEBERGEMENT - RESTAU").Cells(ligneh, 16)

                 If hID = "" Or hID = "0" Then
                 Exit Sub
                 Else
                   If ligneh > 78 Then
                   Exit Do
                   Else
                   End If
                 End If
             Loop Until (PID = hID)
        End If
                    'If PID = "" Or PID = "0" Then
                    'lignep = lignep + 1
                    'Else
                    'End If
Loop Until (PID = "" Or PID = "0")

End Sub

Bonjour naelison

C'est toujours plus simple avec un fichier, alors

A+

bonsoir,

rebonsoir BrunoM45,

une proposition de correction

Merci pour tout c'est vrai que c'est largement plus simple

Nae