boucle sans Do

[guigui76]

Bonjour, pouvez-vous me dire pourquoi j'ai ce message.
J'ai bien Do au début et loop à la fin.
je ne comprends pas.
😕

Sub macro0()
Dim fr As Range

Range("D1:D23").Select
    Selection.NumberFormat = "dd mm"
Do While Range("d1").Value > ""
 
Set fr = Range("b6:b20").Find(Range("d1").Value, , xlValues, xlWhole, , , False)
If Not fr Is Nothing Then
MsgBox "Attention doublon"
Else

   ' Call Macro1
'Call Macro2
'Call Macro3
'Call Macro4
'Call Macro5
'Call Macro6
'Call Macro7
'Call Macro8
'Call Macro9
  
Range("B6:B2000").Select
    Selection.Copy
    Range("B7").Select
    ActiveSheet.Paste
    Range("d1").Copy
   ' Selection.Copy
    Range("B6").Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("d2:d23").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("d1").Select
    ActiveSheet.Paste

   Loop
   
   End If
    
End Sub

 

[guigui76]

Re : boucle sans Do

Je te remercie pour ta réponse.