Macro de recherche

            If UCase(Trim(Sheets(DATA).Range("B" & cd.Row))) <> "D" Then

Dim i As Long, j As Long, ctl(), dat(), cod(), Uctl As Long, Ldat As Long, Lcod As Long, cd
    Application.ScreenUpdating = False
    ReDim ctl(1 To 2, 1 To 1)
    ctl(1, 1) = "Code UPS INCOHERENT"
    Uctl = 1
    With Sheets(DATA)
        dat = .Range(.Cells(1, 49), .Cells(Rows.Count, 49).End(xlUp)).Value
        ReDim Preserve dat(1 To UBound(dat, 1), 1 To 3)
        For Each cd In .Range(.Cells(1, 49), .Cells(Rows.Count, 49).End(xlUp)).Cells
            If UCase(Trim(Sheets(DATA).Range("B" & cd.Row))) <> "D" Then
            Ldat = Ldat + 1: dat(Ldat, 2) = cd.Address: dat(Ldat, 3) = cd.Row
        End If
        Next cd
    End With