PB de variable avec Find Next

            For Each Cel In WsMacro.Range(Cells(15, 6), Cells(DerligneMacro, 6))
            
            
'Cherche Cel dans base de données
                Set C = WsBase.Columns(2).Find(Cel, LookIn:=xlValues)
                
'Si C = Cel
                    If Not C Is Nothing Then
                            WsTravail.Cells(DerligneOF + 1, 2).Value = "OR : " & Cel
                            WsTravail.Cells(DerligneOF + 2, 2).Value = "Article : " & C.Offset(0, 5).Value
                            WsTravail.Cells(DerligneOF + 3, 2).Value = "Désignation : " & C.Offset(0, 6).Value
                            WsTravail.Cells(DerligneOF + 1, 3).Value = "A"
                            WsTravail.Cells(DerligneOF + 2, 3).Value = "B"
                            WsTravail.Cells(DerligneOF + 3, 3).Value = "C"
                            WsTravail.Cells(DerligneOF + 4, 3).Value = "D"
                    
                            FirstAddress = C.Address
                     
                        Do
                                Set Cel1 = WsTravail.Columns(2).Find("OF : " & Cel.Value, LookIn:=xlValues)
                                Cel1.End(xlToRight).Offset(0, 1).Range("A1").Value = C.Offset(0, 8).Value          'Report de la phase
                                Cel1.End(xlToRight).Offset(1, 0).Range("A1").Value = C.Offset(0, 10).Value         'Report du poste
                                Cel1.End(xlToRight).Offset(2, 0).Range("A1").Value = C.Offset(0, 9).Value          'Report du statut OP
                                Cel1.End(xlToRight).Offset(3, 0).Range("A1").Value = C.Offset(0, 22).Value          ' Report des Heures
                            
                            Set C = WsBase.Columns(2).FindNext(C)
                        Loop While Not C Is Nothing And C.Address <> FirstAddress
                        
                    End If
            Next Cel